Collection.Add(Object, String, Object, Object) Yöntem

Tanım

Ad Alanı:

Microsoft.VisualBasic

Bütünleştirilmiş Kod:

Microsoft.VisualBasic.Core.dll

Kaynak:

Collection.vb

Bir nesneye öğe Collection ekler.

public void Add(object? Item, string? Key = default, object? Before = default, object? After = default);

member this.Add : obj * string * obj * obj -> unit

Public Sub Add (Item As Object, Optional Key As String = Nothing, Optional Before As Object = Nothing, Optional After As Object = Nothing)

Parametreler

Item

Object

Gerekli. Koleksiyona eklenecek öğeyi belirten herhangi bir türde nesne.

Key

String

Optional. Koleksiyondaki bu yeni öğeye erişmek için konumsal dizin yerine kullanılabilecek anahtar dizesini belirten benzersiz String bir ifade.

Before

Object

Optional. Koleksiyonda göreli bir konum belirten ifade. Eklenecek öğe, bağımsız değişken tarafından tanımlanan öğeden önce koleksiyona Before yerleştirilir. Sayısal bir ifadeyse Before , 1 ile koleksiyonun Count özelliğinin değeri arasında bir sayı olmalıdır. bir Before ifadeyseString, başvurulmakta olan öğe koleksiyona eklendiğinde belirtilen anahtar dizesine karşılık gelir. hem Beforehem de After belirtemezsiniz.

After

Object

Optional. Koleksiyonda göreli bir konum belirten ifade. Eklenecek öğe, bağımsız değişken tarafından tanımlanan öğeden sonra koleksiyona After yerleştirilir. Sayısal bir ifadeyse After , 1 ile koleksiyonun Count özelliğinin değeri arasında bir sayı olmalıdır. bir After ifadeyseString, başvuruda bulunılan öğe koleksiyona eklendiğinde belirtilen anahtar dizesine karşılık gelir. hem Beforehem de After belirtemezsiniz.

Örnekler

Aşağıdaki örnek, adlı Addbir koleksiyona nesneleri (özellik child içeren child adlı Public bir sınıfın örnekleri) eklemek name için yöntemini kullanırfamily. Bunun nasıl çalıştığını görmek için iki denetimli bir Form oluşturun ve özelliklerini Button ve Textolarak Add ayarlayın.List Form koduna child sınıf tanımını ve family bildirimini ekleyin. _Click Ekle ve Liste düğmelerinin olay işleyicilerini gösterildiği gibi değiştirin. Ekle düğmesi alt öğeleri eklemenize olanak tanır. Liste düğmesi tüm çocukların adlarını görüntüler.

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() 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() Handles Button2.Click
    For Each aChild As child In family
        MsgBox(aChild.name)
    Next
End Sub

Açıklamalar

Before veya After bağımsız değişkeni koleksiyonun mevcut bir öğesine başvurmalıdır; aksi takdirde bir hata oluşur.

Hem hem de BeforeAfter bağımsız değişkenleri atlanırsa, yeni nesne koleksiyonun sonuna eklenir.

Belirtilen Key bir değer, koleksiyonun mevcut bir öğesinin anahtarıyla eşleşiyorsa da hata oluşur.