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

是不是这样用???????
...全文
62 点赞 收藏 11
写回复
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="张三"就可以
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7450

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告