VBA: Hinzufügen von Klassenelementen zu einer Sammlung innerhalb der Klasse

Question

Ich versuche, einen Baum (Art eines zusammengesetzten Musters tatsächlich) zu erstellen, aber ich kann einfach nicht die erstellten Elemente einer Klasse zu einer Sammlung von Elementen hinzufügen Elternteil.

Innerhalb der Klasse

Private pChildList As Collection 

Private Sub Class_Initialize() 
    Set pChildList = New Collection 
End Sub 

Public Property Set ChildList(Value As CProduct) 
    pChildList.Add Value 
End Property 

Public Property Get ChildList() As Collection 
    ChildList = pChildList 
End Property 

Die Hauptfunktion

Set Pro = New CProduct 
Set Child = New CProduct 
Pro.ChildList.Add Child 

So das Ergebnis Aufruf sollte in seiner pChildList Sammlung ein Elternteil (Pro) mit einem Kind sein, aber ich habe nur den Fehler, "Argument ist nicht optional".

Vielen Dank im Voraus!

Answer 1

Sie vermissen nur eine Set in Ihrer Eigenschaft Get definition. Ein Collection ist ein Objekt, Sie müssen das Schlüsselwort Set verwenden, um es auf eine Variable zu beeinflussen.

Public Property Get ChildList() As Collection 
    Set ChildList = pChildList 
End Property 

meine Antwort ergänzen folgende Sie Kommentar:

Property Set sind für Objekte, Property Let sind für Basistypen. Diese beiden Eigenschaften werden normalerweise verwendet, um den Wert einer Membervariable zu ändern (und werden dies voraussichtlich tun), dh um auf die Variable für das Schreiben zuzugreifen, aber Sie können im Code tun, was Sie wollen. Property Get werden normalerweise verwendet, um den Wert einer Membervariable zurückzugeben (aber Sie können wieder tun, was Sie wollen, in Code), dh auf die Variable zum Lesen zugreifen. Da es keinen Grund gibt, die pChildList selbst zu ändern, würde ich die Property Set komplett fallen lassen. Sie können auch entscheiden, vollständig die Membervariable zu verstecken und Member-Funktionen verwenden, um Childs hinzuzufügen und zu entfernen, zum Beispiel:

Public Sub AddChild(vValue as CProduct) 
    pChildList.Add vValue 
End Sub