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