Property Let\\Get语句:

Property Let含义及实例:

Property Get含义及实例:

Property Let\\Get源码实例:

Property Let\\Get语句:

Property Let\\Get语句可以设置及获取一个自定义类的属性(或者说控件的属性)

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 Let\\Get源码实例:

新建一个叫"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