VBA-Programmierung in Microsoft Excel

VBA-Begriff: Add-Methode (Beispiel)

In diesem Beispiel wird die Add-Methode verwendet, um Inst-Objekte (Instanzen einer Klasse mit dem Namen Klasse1, die eine Public-Variable mit dem Namen Instanzname enthalten) zu einer Auflistung mit dem Namen TestClasses hinzuzufügen. Sie probieren dieses Beispiel aus, indem Sie ein Klassenmodul einfügen und eine öffentliche Variable mit dem Namen Instanzname auf der Modulebene von Klasse1 deklarieren (geben Sie Public Instanzname ein), die die Namen der einzelnen Instanzen aufnimmt. Ändern Sie den Standardnamen Klasse1 nicht. Kopieren Sie den folgenden Code, und fügen Sie ihn in die Form_Load-Ereignisprozedur eines Formularmoduls ein.

Dim TestClasses As New Collection    ' Collection-Objekt erstellen.
Dim Num As Integer    ' Zähler für Namen der einzelnen
                ' Schlüssel.
Dim Mldg
Dim DerName    ' Zum Speichern der eingegebenen
                ' Namen.
Do
    Dim Inst As New Klasse1    ' Neue Klasse1-Instanz erstellen.
    Num = Num + 1    ' Num hochzählen und Namen abrufen.
    Mldg = "Welchen Namen soll das Objekt bekommen?" & Chr(13) _
     & "Drücken Sie 'Abbrechen', um die Namen in der Auflistung " & _
     "anzuzeigen."
    DerName = InputBox(Mldg, "Namen der Auflistungselemente")
    Inst.Instanzname = DerName    ' Name in Objektinstanz speichern.
    ' Wenn Benutzer einen Namen eingegeben hat, Objekt zur Auflistung
    ' hinzufügen.
    If Inst.Instanzname <> "" Then
        ' Benanntes Objekt zur Auflistung hinzufügen.
        TestClasses.Add item := Inst, key := CStr(Num)
    End If
    ' Aktuellen Verweis als Vorbereitung auf den nächsten löschen.
    Set Inst = Nothing
Loop Until DerName = ""
 For Each x In TestClasses
    MsgBox x.Instanzname, , "Instanzname"
Next