主页

请看一看我的代码，为何向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

是不是这样用？？？？？？？

...全文

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

回复赞