请看一看我的代码,为何向DLL中传属性字符串不成功?

aloka 2003-01-16 02:52:21
'########## dll中的类模块代码
Public mczyxm As String '操作员

Public Property Get czyxm() As String
czyxm = mczyxm
End Property

Public Property Let czyxm(ByVal vNewValue As String)
mczyxm = NewValue
End Property

'########## dll中的窗体代码
Dim hj As New hjsf
Public czy As String '操作员
Private Sub Form_Load()

czy = hj.gczyxm '''''''''''我这里要用属性,取属性
MsgBox czy '是空的

endsub
'########## 调用dll的工程代码
Dim ghjsf As New hjsfdll.hjsf
czy="张三"
ghjsf.mczyxm = Czy

是不是这样用???????
...全文
95 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
ningkang 2003-01-22
  • 打赏
  • 举报
回复
Public Property Let czyxm(ByVal vNewValue As String)
let mczyxm = vNewValue
End Property
不用:
Public Property Get czyxm() As String
czyxm = mczyxm
End Property
yvqq 2003-01-17
  • 打赏
  • 举报
回复
Public Property Get czyxm() As String
czyxm = mczyxm
End Property

Public Property Let czyxm(ByVal vNewValue As String)
let mczyxm = vNewValue
End Property
wuzhiliang 2003-01-17
  • 打赏
  • 举报
回复
楼上的,类属性参数写错了....

Public Property Let czyxm(ByVal vNewValue As String)
mczyxm = NewValue 应该为vNewValue
End Property

还有,最好在窗体级中定义类
你在写代码时,每个过程都new一个,而在工程结束中又没有Nothing掉,很占内存的.而且不能保存原来类中的属性.
aloka 2003-01-17
  • 打赏
  • 举报
回复
那应该写在那里?才不为空?
hhyttppd 2003-01-16
  • 打赏
  • 举报
回复
同意楼上。
在你的类产生一个实体(对象)还没有初始化属性之前,你取得的属性值为空。而且在DLL中一般不用可视的控件。
CityhunterID 2003-01-16
  • 打赏
  • 举报
回复
楼主,你那个 调用dll的工程代码是 在什么地方写的呀?!

还有 MsgBox czy '?????????是空的????????????
一定会是空的。你这个东东写在 Form_Load 里。那个 hj 是一个新的 hjsfdll.hjsf ,又没有地方给他赋值,你怎么可能取得值呢?!
当然会是空的啦!!!
aloka 2003-01-16
  • 打赏
  • 举报
回复
'########## 调用dll的工程代码
Dim ghjsf As New hjsfdll.hjsf
czy="张三"
ghjsf.mczyxm = Czy
MsgBox ghjsf.mczyxm '是"张三" 说明已经传过去了
DLL中有一个窗体一个类模块,'我在dll窗体里要用这个属性,应该在哪里取出这个属性?
'########## dll中的窗体代码
Dim hj As New hjsf
Public czy As String '操作员
Private Sub Form_Load()'''''''''''

czy = hj.gczyxm '''''''''''我这里要用属性,取属性
MsgBox czy '?????????是空的????????????

endsub

stgxc 2003-01-16
  • 打赏
  • 举报
回复
笨笨啊,,,,,
看个简单的:
dim s as string

text1.text = s
或 s = text1.text
ccbl 2003-01-16
  • 打赏
  • 举报
回复
object.Property=数值
变量=object.Property
holydiablo 2003-01-16
  • 打赏
  • 举报
回复
ghjsf.mczyxm="张三"就可以
holydiablo 2003-01-16
  • 打赏
  • 举报
回复
ghjsf.mczyxm="张三"就可以

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧