'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.Expression
Expression = mvarExpression
End Property
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
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
类模块二：类名：cBomValue
Option Explicit
'保持属性值的局部变量
Private mvarAssBom As String '局部复制
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
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出列表。
上一篇： VB入门教程之一
下一篇： VB入门教程之二
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
