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