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

参数

示例

以下示例使用Add该方法将名为child包含Public属性name的类的实例添加到child调用family的集合中。 若要查看其工作原理，请创建一个包含两个Form控件的控件，并将其属性设置为Add和List设置它们Text。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 值与集合的现有元素的键匹配，也会出现错误。

适用于