1

MyClass2 に次のプロパティがあります。

 Private MyClass1Array(1 To 4) As MyClass1

MyClass1 は、私が定義した別のクラスです。このプロパティに対処する方法がわかりません。パブリックに設定できないため、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

しかし、これもうまくいきません。このプロパティを正しく記述する方法は? ありがとう！

4

1 に答える 1

3

クラス オブジェクトを使用する場合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
于 2012-10-31T12:00:55.820 に答える