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

[aloka]

'########## 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

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

[holydiablo]

ghjsf.mczyxm="张三"就可以

[holydiablo]

ghjsf.mczyxm="张三"就可以

[ccbl]

object.Property=数值
变量=object.Property

[stgxc]

笨笨啊，，，，，
看个简单的：
dim s as string

text1.text = s
或 s = text1.text

[aloka]

'########## 调用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

[CityhunterID]

楼主，你那个 调用dll的工程代码是 在什么地方写的呀？！

还有 MsgBox czy '?????????是空的????????????
一定会是空的。你这个东东写在 Form_Load 里。那个 hj 是一个新的 hjsfdll.hjsf ，又没有地方给他赋值，你怎么可能取得值呢？！
当然会是空的啦！！！

[hhyttppd]

同意楼上。
在你的类产生一个实体（对象）还没有初始化属性之前，你取得的属性值为空。而且在DLL中一般不用可视的控件。

[aloka]

那应该写在那里？才不为空？

[wuzhiliang]

楼上的,类属性参数写错了....

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

还有,最好在窗体级中定义类
你在写代码时,每个过程都new一个,而在工程结束中又没有Nothing掉,很占内存的.而且不能保存原来类中的属性.

[yvqq]

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

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

[ningkang]

Public Property Let czyxm(ByVal vNewValue As String)
let mczyxm = vNewValue
End Property
不用：
Public Property Get czyxm() As String
czyxm = mczyxm
End Property