VBA - 通過另一個對象（屬性集）訪問對象屬性

Question

新建構建VBA中的類模塊並努力填充另一個對象中定義的一個對象。

例如，我有兩個類模塊的Class1和等級2

的Class1

Dim mobj As Class2 
Public Property Set SetObj(obj As Class2) 
    Set mobj = obj 
End Property 

的Class2

Public FirstName As String 

這些是從一個標準模塊訪問如下：

Sub test() 
Dim X As Class1 
Set X = New Class1 
Set X.SetObj = New Class2 
X.SetObj.FirstName = "Bruce" 
End Sub 

但是，當我收到「屬性消息的無效使用」時，這在X.SetObj.FirstName =「Bruce」中失敗。任何援助將不勝感激。

Answer 1

你就近了。 的Class1：

Private mobj As Class2 
Public Property Set Obj(Obj As Class2) 
    Set mobj = Obj 
End Property 

Public Property Get Obj() 
    Set Obj = mobj 
End Property 

子（在X.Obj.FirstName行調用Get屬性，而不是設置屬性）：

Sub test() 
    Dim X As Class1 
    Set X = New Class1 
    Set X.Obj = New Class2 
    X.Obj.FirstName = "Bruce" 
End Sub