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

定义

将一个元素添加到 Collection 对象。

public void Add (object? Item, string? Key = default, object? Before = default, object? After = default);
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 属性值之间的数值。 如果 BeforeString 表达式,则必须对应于将引用的元素添加到集合时指定的键字符串。 不能同时指定 BeforeAfter

After
Object

可选。 指定集合中的相对位置的表达式。 将要添加的元素放在集合中由 After 参数标识的元素后面。 如果 After 是数值表达式,则它必须是介于 1 和集合的 Count 属性值之间的数值。 如果 AfterString 表达式,则必须对应于将引用的元素添加到集合时指定的键字符串。 不能同时指定 BeforeAfter

示例

以下示例使用Add该方法将名为child包含Public属性name的类的实例添加到child调用family的集合中。 若要查看其工作原理,请创建一个包含两个Form控件的控件,并将其属性设置为AddList设置它们TextButtonchild 类定义和 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

注解

BeforeAfter参数必须引用集合的现有元素;否则会发生错误。

Before如果省略了参数和After参数,则将新对象添加到集合的末尾。

如果指定的 Key 值与集合的现有元素的键匹配,也会出现错误。

适用于