谁帮帮我呀,,可不可以把在类模块中,,如何自定义属性说明白一点,,

Question

希望大家先从LET过程说起,,,,,,然后再说,,GET,,,然后说明LET和GET过程的相关的联系,,,,接下来再说明,,引用这个类后,,,是如何操作这个声明的属性的,,,是如何来返回这个属性值的,,,,,

Answer 1

set 设置对象属性，只写
let 设置非对象属性
get 只读

Answer 2

'Class1代码
Private nmA As Variant
Public Property Get aaa() As Variant
aaa = nmA
End PropertyPublic Property Let aaa(ByVal vNewValue As Variant)
nmA = vNewValue
End Property---------------------
'窗体代码
Dim objN As Class1
Private Sub Form_Load()
Set objN = New Class1
End SubPrivate Sub Command1_Click()
objN.aaa = InputBox("请输入")
End Sub
Private Sub Command2_Click()
MsgBox objN.aaa
End Sub

Answer 3

《Visual Basic 6.0中文版程序员指南》第9章