クラスAのメンバ変数にクラスBの配列を設定して、標準モジュールからクラスAを経由してクラスBのメンバ変数を持ってきたい

投稿者 : 社内vbaマン(クラス勉強中)     投稿日時 : 2023/05/26(Fri) 20:52:14     OS : Windows 10     EXCEL : Office 365

---

下記コードで標準モジュールから「ClassA.ClassB().文字列」という形でClassBの文字列メンバ変数を持ってきたいのですが、やり方がいまいちわからない状況です。
どのように修正すればよいかご指摘いただけると幸いです。


■コード
標準モジュールのDebug.Printで"結果2"と出力したいです。

標準モジュール--------------------------------------------------------------------------------

Public Sub 標準モジュール()

    Dim ClassA As ClassA
    Set ClassA = New ClassA
    
    ClassA.コンストラクタ

    'ここで"結果2"と出力したいがやり方がわからない
    Debug.Print ClassA.ClassB(2).テストデータ
    
End Sub

----------------------------------------------------------------------------------------------


ClassAモジュール---------------------------------------------------------------------------------------
Private ClassB_() As New ClassB

Public Property Get ClassB(ByVal index As Long) As ClassB
ClassB = ClassB_(index)
End Property

Public Sub コンストラクタ()  
    ReDim ClassB_(2)
         
    ClassB_(0).コンストラクタ "結果0"
    ClassB_(1).コンストラクタ "結果1"
    ClassB_(2).コンストラクタ "結果2"

End Sub

-------------------------------------------------------------------------------------------------------


ClassBモジュール---------------------------------------------------------------------------------------
Public テストデータ As String

'コンストラクタ

Public Sub コンストラクタ(ByVal 文字列 As String)
    テストデータ = 文字列
End Sub

-------------------------------------------------------------------------------------------------------

投稿者 : hatena     投稿日時 : 2023/05/27(Sat) 15:59:58

---

ClassAモジュール

Public Property Get ClassB(ByVal index As Long) As ClassB
Set ClassB = ClassB_(index)
End Property


オブジェクト(Class)を代入するときはSetが必要。