Public Property Let BomPoint(ByVal vData As String)
''''向属性指派值时使用，位于赋值语句的左边。
''''Syntax: X.BomPoint = 5
    mvarBomPoint = vData
End Property

Public Property Get BomPoint() As String
''''检索属性值时使用，位于赋值语句的右边。
''''Syntax: Debug.Print X.BomPoint
    BomPoint = mvarBomPoint
End Property

Public Property Let AssBom(ByVal vData As String)
''''向属性指派值时使用，位于赋值语句的左边。
''''Syntax: X.AssBom = 5
    mvarAssBom = vData
End Property

Public Property Get AssBom() As String
''''检索属性值时使用，位于赋值语句的右边。
''''Syntax: Debug.Print X.AssBom
    AssBom = mvarAssBom
End Property

类模块三：类名：cPointValue

Option Explicit

''''保持属性值的局部变量
Private mvarBomPoint As String ''''局部复制
Private mvarQuantity As Double ''''局部复制
Public Property Let Quantity(ByVal vData As Double)
''''向属性指派值时使用，位于赋值语句的左边。
''''Syntax: X.Quantity = 5
    mvarQuantity = vData
End Property

Public Property Get Quantity() As Double
''''检索属性值时使用，位于赋值语句的右边。
''''Syntax: Debug.Print X.Quantity
    Quantity = mvarQuantity
End Property

Public Property Let BomPoint(ByVal vData As String)
''''向属性指派值时使用，位于赋值语句的左边。
''''Syntax: X.BomPoint = 5
    mvarBomPoint = vData
End Property

Public Property Get BomPoint() As String
''''检索属性值时使用，位于赋值语句的右边。
''''Syntax: Debug.Print X.BomPoint
    BomPoint = mvarBomPoint
End Property

加入后可直接在窗体中Print出列表。

上一页  [1] [2] [3]