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

定义

命名空间:

Microsoft.VisualBasic

程序集:

Microsoft.VisualBasic.Core.dll

Source:

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 方法将 对象（名为 child 包含Public属性name的类的实例）添加到child名为 的family集合中。 若要查看其工作原理，请创建包含两个Form控件的 ，并将其Text属性设置为 Add 和 ListButton 。 将 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 值与集合中现有元素的 键匹配，则也会发生错误。