Método Add (objeto da coleção)

Artigo
08/25/2010

Adiciona um elemento a um Collection objeto.

Public Sub Add( _
   ByVal Item As Object, _
   Optional ByVal Key As String, _
   Optional ByVal { Before | After } As Object = Nothing _
)

Parâmetros

Item
Obrigatório.Um objeto de qualquer tipo que especifica o elemento para adicionar à coleção.
Key
Opcional.Um único String expressão que especifica uma seqüência de caracteres de chave que pode ser usada em vez de um índice posicional para acessar esse novo elemento na coleção.
Before
Opcional.Uma expressão que especifica uma posição relativa na coleção.O elemento a ser adicionado é colocado na coleção antes do elemento identificado pelo Before argumento. If Before é uma expressão numérica, ele deve ser um número entre 1 e o valor da coleção Propriedades de Contagem ( Objeto de coleção).. If Before é um String expressão, ele deve corresponder à seqüência de chave especificada quando o elemento que está sendo referenciado foi adicionado à coleção. Não é possível especificar ambos os Before e After.
After
Opcional.Uma expressão que especifica uma posição relativa na coleção.O elemento a ser adicionado é colocado na coleção após o elemento identificado pelo After argumento. If After é uma expressão numérica, ele deve ser um número entre 1 e o valor da coleção Count propriedade. If After é um String expressão, ele deve corresponder à seqüência de chave especificada quando o elemento a chamada foi adicionado à coleção. Não é possível especificar ambos os Before e After.

Exceções/Códigos de erros

Tipo de exceção	Número de erro	Condição
ArgumentException	5	Ambos os Before e After são especificados. The Before ou After argumento não se refere a um elemento existente da coleção. O especificadoKey já existe.

Ver a coluna " número de erro " se você estiver atualizando aplicativos Visual Basic 6.0 que usam manipulação de erros não estruturada.(Você pode comparar o número do erro com a Propriedade do Número (Erro de objeto).) Entretanto, quando for possivel, você pode considerar substituir tal controle de erro por Visão Geral sobre a Manipulação Estruturada de Exceções para o Visual Basic.

Comentários

The Before ou After argumento deve se referir a um elemento existente da coleção; caso contrário, ocorrerá um erro.

Um erro também ocorre se um especificado Key valor corresponde a chave para um elemento existente da coleção.

Exemplo

O exemplo a seguir utiliza o Add Para adicionar child objetos, instâncias de uma classe chamada child contendo um Public propriedade name — a uma coleção chamada family. Para ver como isso funciona, crie um Form com dois Button controles e defina seus Text propriedades para Adicionar and Lista.Adicionar o child definição de classe e o family declaração para o código do formulário. Modificar o _Click manipuladores de eventos para o Adicionar and Lista botões conforme mostrado.The Adicionar botão permite que você adicionar filhos.The Lista botão exibe os nomes de todos os filhos.

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(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) 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(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button2.Click
    For Each aChild As child In family
        MsgBox(aChild.name)
    Next
End Sub