Add-Methode (Collection-Objekt)

Artikel
09/03/2008

Aktualisiert: November 2007

Fügt einem Collection-Objekt ein Element hinzu.

Public Sub Add( _
   ByVal Item As Object, _
   Optional ByVal Key As String, _
   Optional ByVal { Before | After } As Object = Nothing _
)

Parameter

Item
Erforderlich. Ein Objekt eines beliebigen Typs, welches das Element angibt, das der Auflistung hinzugefügt wird.
Key
Optional. Ein eindeutiger String-Ausdruck, der eine Schlüsselzeichenfolge angibt, die anstelle eines Positionsindexes verwendet wird, um auf dieses neue Element der Auflistung zuzugreifen.
Before
Optional. Ein Ausdruck, der eine relative Position in der Auflistung festlegt. Das hinzuzufügende Element wird in der Auflistung vor dem Element eingefügt, das durch das Before-Argument gekennzeichnet ist. Falls es sich bei Before um einen numerischen Ausdruck handelt, muss sein Wert eine Zahl zwischen 1 und dem Wert der Count-Eigenschaft (Collection-Objekt) der Auflistung sein. Wenn es sich bei Before um einen String-Ausdruck handelt, muss das Argument der Schlüsselzeichenfolge entsprechen, die festgelegt wurde, als das betreffende Element der Auflistung hinzugefügt wurde. Sie können nicht gleichzeitig Before und After angeben.
After
Optional. Ein Ausdruck, der eine relative Position in der Auflistung festlegt. Das hinzuzufügende Element wird in der Auflistung nach dem Element eingefügt, das durch das After-Argument gekennzeichnet ist. Falls es sich bei After um einen numerischen Ausdruck handelt, muss sein Wert eine Zahl zwischen 1 und dem Wert der Count-Eigenschaft der Auflistung sein. Wenn es sich bei After um einen String-Ausdruck handelt, muss das Argument der Schlüsselzeichenfolge entsprechen, die festgelegt wurde, als das betreffende Element der Auflistung hinzugefügt wurde. Sie können nicht gleichzeitig Before und After angeben.

Ausnahmen/Fehlercodes

Ausnahmetyp	Fehlernummer	Bedingung
ArgumentException	5	Before und After wurden gleichzeitig angegeben. Das Before-Argument oder das After-Argument verweist nicht auf ein vorhandenes Element der Auflistung. Der angegebene Key ist bereits vorhanden.

Beachten Sie die Spalte "Fehlernummer", wenn Sie Visual Basic 6.0-Anwendungen aktualisieren, die eine unstrukturierte Fehlerbehandlung verwenden. (Sie können die Fehlernummer mit der Number-Eigenschaft (Err-Objekt) vergleichen.) Wenn möglich, sollten Sie jedoch erwägen, eine solche Fehlersteuerung durch eine Übersicht über die strukturierte Ausnahmebehandlung für Visual Basic zu ersetzen.

Hinweise

Das Before-Argument oder das After-Argument muss sich auf ein vorhandenes Element der Auflistung beziehen, andernfalls tritt ein Fehler auf.

Ein Fehler tritt ebenfalls auf, wenn der angegebene Key-Wert dem Schlüssel eines vorhandenen Elements der Auflistung entspricht.

Beispiel

Im folgenden Beispiel werden mit der Add-Methode child-Objekte – Instanzen einer Klasse mit dem Namen child, die die Public-Eigenschaft name enthalten – einer Auflistung mit dem Namen family hinzugefügt. So testen Sie die Methode: Erstellen Sie ein Form mit zwei Button-Steuerelementen, und legen Sie die Text-Eigenschaften dieser Schaltflächen auf Hinzufügen und Liste fest. Fügen Sie dem Formularcode die child-Klassendefinition und die family-Deklaration hinzu. Ändern Sie entsprechend der Darstellung die _Click-Ereignishandler für die Schaltflächen Hinzufügen und Liste. Mit der Schaltfläche Hinzufügen können Sie untergeordnete Elemente hinzufügen. Mit der Schalfläche Liste werden die Namen aller untergeordneten Elemente angezeigt.

Public Class child
    Public name As String
    Sub New(ByVal newName As String)
        name = newName
    End Sub
End Class
' Create a Collection object.
Private family As New Collection()
Private Sub addChild_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
    Dim newName As String
    newName = InputBox("Name of new family member: ")
    If newName <> "" Then
        family.Add(New child(newName), newName)
    End If
End Sub
Private Sub listChild_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button2.Click
    For Each aChild As child In family
        MsgBox(aChild.name)
    Next
End Sub