'local variable(s) to hold property value(s)
Private mvarA As String 'local copy
Public Property Let A(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.A = 5
mvarA = vData
End Property
Public Property Get A() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.A
A = mvarA
End Property
------------------------------------------------------------
'local variable(s) to hold property value(s)
Private mvarA As String 'local copy
Public Property Let A(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.A = 5
mvarA = vData
End Property
Public Property Get A() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.A
A = mvarA
End Property
byval不起作用,vb6里面如何实现VB.net的clone实例?
