‘\u4e00\u3001\u5efa\u7acb\u5b50\u7c7b CAddress.cls
Private m_Street As String
Private m_City As String<\/p>\n\n\n\n
Public Property Get Street() As String
Street = m_Street
End Property<\/p>\n\n\n\n
Public Property Let Street(ByVal sStreet As String)
m_Street = sStreet
End Property<\/p>\n\n\n\n
Public Property Get City() As String
City = m_City
End Property<\/p>\n\n\n\n
Public Property Let City(ByVal sCity As String)
m_City = sCity
End Property<\/p>\n\n\n\n
‘ \u4e8c\u3001\u5efa\u7acb\u7236\u7c7b CPerson.cls
Private m_Address As CAddress ‘ \u58f0\u660e CAddress \u7c7b\u578b\u7684\u79c1\u6709\u53d8\u91cf<\/p>\n\n\n\n
‘ \u81ea\u52a8\u521d\u59cb\u5316 CAddress \u5b9e\u4f8b
Private Sub Class_Initialize()
Set m_Address = New CAddress
End Sub<\/p>\n\n\n\n
‘ \u6e05\u7406\u8d44\u6e90
Private Sub Class_Terminate()
Set m_Address = Nothing
End Sub<\/p>\n\n\n\n
‘ \u901a\u8fc7 Property Get \u516c\u5f00 CAddress \u5b9e\u4f8b
Public Property Get Address() As CAddress
Set Address = m_Address
End Property<\/p>\n\n\n\n
‘ \u53ef\u9009\uff1a\u5141\u8bb8\u5916\u90e8\u8bbe\u7f6e CAddress \u5b9e\u4f8b
Public Property Set Address(ByVal objAddress As CAddress)
Set m_Address = objAddress
End Property<\/p>\n\n\n\n
‘ \u4e09\u3001\u5728\u7a97\u4f53\u6216\u6a21\u5757\u4e2d\u4f7f\u7528\uff1a
Dim person As CPerson
Set person = New CPerson<\/p>\n\n\n\n
‘ \u8bbe\u7f6e\u5730\u5740\u5c5e\u6027
With person.Address
.Street = “123 Main St”
.City = “New York”
End With<\/p>\n\n\n\n
‘ \u8bfb\u53d6\u5730\u5740\u5c5e\u6027
MsgBox “\u5730\u5740\uff1a” & person.Address.Street & “, ” & person.Address.City<\/p>\n\n\n\n
‘\u56db\u3001\u6ce8\u610f\u4e8b\u9879<\/p>\n\n\n\n
Set person.Address = New CAddress ‘ \u6b63\u786e
person.Address = New CAddress ‘ \u9519\u8bef\uff08\u7f3a\u5c11 Set\uff09<\/p>\n","protected":false},"excerpt":{"rendered":"