Collection.Add(Object, String, Object, Object) 方法

定義

命名空間:

Microsoft.VisualBasic

組件:

Microsoft.VisualBasic.Core.dll

來源:

Collection.vb

將項目新增至 Collection 物件。

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)

參數

Item

Object

必要。 任何類型的物件，可指定要加入至集合的元素。

Key

String

選擇性。 唯一的 String 運算式，其指定用來存取集合中這個新項目的索引鍵字串，藉以取代位置索引。

Before

Object

選擇性。 運算式，其指定集合中的相對位置。 要新增的項目會放置在集合中由 Before 引數識別的項目之前。 如果 Before 為數值運算式，它必須是從 1 到集合 Count 屬性值的一個數字。 如果 Before 為 String 運算式，當所參考的項目新增到集合中時，它必須對應到指定的索引鍵字串。 不能同時指定 Before 和 After。

After

Object

選擇性。 運算式，其指定集合中的相對位置。 要新增的項目會放置在集合中由 After 引數識別的項目之後。 如果 After 為數值運算式，它必須是從 1 到集合 Count 屬性值的一個數字。 如果 After 為 String 運算式，當所參考的項目新增到集合中時，它必須對應到指定的索引鍵字串。 不能同時指定 Before 和 After。

範例

下列範例會Add使用 方法，將包含childPublic屬性name之類別的實例加入child至名為的family集合。 若要查看運作方式，請使用兩個控件建立 ，Form並將其Text屬性設定為 Add 和 List。Button 將 child 類別定義和 family 宣告新增至表單程式代碼。 _Click修改 [新增] 和 [列表] 按鈕的事件處理程式，如下所示。 [ 新增 ] 按鈕可讓您新增子系。 [ 清單] 按鈕會顯示所有子系的名稱。

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

備註

Before或 After 自變數必須參考集合的現有項目，否則會發生錯誤。

如果省 Before 略和 After 自變數，則會將新的 物件新增至集合結尾。

如果指定的 Key 值符合集合中現有專案的索引鍵，也會發生錯誤。