如何在VBA中的类中创建类

Question

我正在尝试根据现有数据集创建一个类。 这些列包括名称、街道地址、城市、州和邮编。 我想创建一个带有名称和地址的类。 在这个类中，我想要另一个包含街道地址、城市、州和邮政编码的地址类。

对于每个私有变量，我的代码看起来像这样（我没有城市、州或邮编的变量，但我确定我需要它们）：

Private pCustomerName As String

Public Property Let CustomerName(Value As String)
  pCustomerName = Value
End Property

Public Property Get CustomerName() As String
    CustomerName = pCustomerName
End Property

对于包含子类的地址部分，我想这就是我要问的。

目前看起来像这样：

Public Property Let Address(Value As String) 
    pAddress = Value
End Property

Public Property Get Address() As String
    Address = pAddress
End Property

Answer 1

你就在那里，伙计！ 您可以简单地为您的地址数据创建另一个类，并在您的客户类中实例化它。 您只需要使用 VBA 的Set关键字来回分配地址对象。 这也是实例化对象的地址在通常好的做法Class_Initialize并将其设置为Nothing在Class_Terminate如下图所示：

客户类别：

Option Explicit
Private pCustomerName As String
Private pAddress As AddressObj

Public Property Let CustomerName(value As String)
  pCustomerName = value
End Property

Public Property Get CustomerName() As String
    CustomerName = pCustomerName
End Property

Public Property Set CustomerAddress(value As AddressObj)
    Set pAddress = value
End Property

Public Property Get CustomerAddress() As AddressObj
    Set CustomerAddress = pAddress
End Property

Private Sub Class_Initialize()
    Set pAddress = New AddressObj
End Sub

Private Sub Class_Terminate()
    Set pAddress = Nothing
End Sub

地址类（我称之为 AddressObj）

Option Explicit
Private pZipCode As Integer
Private pStreet As String
Private pState As String

Public Property Let ZipCode(value As Integer)
    pZipCode = value
End Property

Public Property Get ZipCode() As Integer
    ZipCode = pZipCode
End Property

Public Property Let Street(value As String)
    pStreet = value
End Property

Public Property Get Street() As String
    ZipCode = pStreet
End Property

Public Property Let State(value As String)
    pState = value
End Property

Public Property Get State() As String
    ZipCode = pState
End Property

'... etc for other properties