vba - 如何在 VBA 中使用静态数组作为类属性

Question

我在 MyClass2 中有以下属性：

 Private MyClass1Array(1 To 4) As MyClass1

其中 MyClass1 是我定义的另一个类。我不知道如何处理这个属性：它不能设置为 public，所以我在 MyClass2 模块中写了这个：

Public Property Let SetMyClass1Array(i As Integer, c As MyClass1)
    MyClass1Array(i) = c
End Property

Public Property Get GetMyClass1Array(i As Integer) As MyClass1
    GetMyClass1Array = MyClass1Array(i)
End Property

但这也行不通。如何正确编写此属性？谢谢！

Answer 1

当您使用类对象时，您需要在Set处理对象引用时使用，而不是原始数据类型值。

Public Property Let SetMyClass1Array(i As Integer, c As MyClass1)
    Set MyClass1Array(i) = c
End Property

Public Property Get GetMyClass1Array(i As Integer) As MyClass1
    Set GetMyClass1Array = MyClass1Array(i)
End Property