Property Let Set Get 属性

Let 赋值:为变量(字段)设置一个值(数值、字符串、布尔值)。例:Obj.Propertyname = x 'Let语句经常被调用，因为我们通常会将一个对象的属性设为一个值。

Set 赋值:为变量(字段)设置一个对象(引用)。例:Obj.Propertyname = Document.Form.Input 'Set语句很少被调用，因为我们很少会将一个对象的属性设为一个对象(但仍应保留，以防万一)。

Get 取值:为属性获取变量(字段)值或对象。例:Alert("Obj.Propertyname")

举例:

Class MyClass

Private pvarmyname                     '私有变量(字段)

Public Property Let Myname(varparam)   ''向属性指派值时使用，位于赋值语句的左边。
                                       ''Syntax: X.Myname = 5
pvarmyname = varparam                  ''为字段赋值。
End Property

Public Property Set Myname(varparam)   ''向属性指派值时使用，位于赋值语句的左边。
                                       ''Syntax: X.Myname = Input
Set pvarmyname = varparam
End Property

Public Property Get Myname()           ''检索属性值时使用，位于赋值语句的右边。
                                       ''Syntax: var = X.myname
If IsObject(pvarmyname) Then
    Set Myname = pvarmyname            ''获取Set语句中pvarmyname的值,并用Set语句为变量(属性)建立对象
Else
    Myname = pvarmyname                ''获取Let语句中pvarmyname的值

End If
End Property

End Class

属性有可读可写(Get,Let,Set)，只读(Get)，只写(Let,Set)

转载于:https://www.cnblogs.com/see2you/archive/2007/12/06/985993.html