Property LetGet语句:Property LetGet语句可以设置及获取一个自定义类的属性(或者说控件的属性)
Property Let含义及实例:使用Property Let为类设置属性,例:
Public Property Let yourval(ByVal strVar)
yourval = strVar
End Property
Property Get含义及实例:使用Property Get获取类属性,例:
Public Property Get yourval
yourval = strVar(此处strVar可以设置为类的内部变量)
End Property
其中Public是公共的意思,即可以在外部调用此类时也可同时设置或获取属性,具体事例见后文
Property LetGet源码实例:新建一个叫"MYCALSS"的类及一个窗口
类代码:
'dim val1,val2
dim temp '定义一个暂存器
Public Property Let val1(ByVal strval) '设置该类的val1属性
temp = strVal '如果写val1=strval 提示内存溢出 ??
End Property
Public Property Get val1 '读取该类的val1属性
val1 = temp
End Property
form代码:
private sub form_load()
Set 297951292 = new MYCALSS"
297951292.val1="这是我的QQ,欢迎大家来学VB" '设置属性
print 297951292.val1 '读出属性
end sub
