Método Add (VBA)

Adiciona um membro a um objeto Collection .

Sintaxe

objeto. Adicionaritem, chave, antes, depois

A sintaxe do método Add tem o seguinte qualificador de objeto e argumentos nomeados:

Sair	Descrição
objeto	Obrigatório. Uma expressão do objeto que é avaliada como um objeto na lista Aplica-se a.
item	Obrigatório. Uma expressão de qualquer tipo que especifica o membro a ser adicionado à coleção.
key	Opcional. Uma expressão de cadeia de caracteres exclusiva que especifica uma cadeia de caracteres chave que pode ser usada, em vez de um índice posicional, para acessar um membro da coleção.
Antes	Opcional. Uma expressão que especifica uma posição relativa na coleção. O membro a ser adicionado é colocado na coleção antes do membro identificado pelo argumentoanterior. Se uma expressão numérica, antes deve ser um número de 1 para o valor da propriedade Count da coleção. Se uma expressão de cadeia de caracteres, antes deve corresponder à chave especificada quando o membro a ser encaminhado foi adicionado à coleção. Você pode especificar uma posição anterior ou uma posição após , mas não ambas.
Depois	Opcional. Uma expressão que especifica uma posição relativa na coleção. O membro a ser adicionado é colocado na coleção após o membro identificado pelo argumento após . Se numérico, depois deve ser um número de 1 para o valor da propriedade Count da coleção. Se uma cadeia de caracteres, depois deve corresponder à chave especificada quando o membro referido foi adicionado à coleção. Você pode especificar uma posição anterior ou uma posição após , mas não ambas.

Comentários

Se o argumento antes ou depois é uma expressão de cadeia de caracteres ou expressão numérica, ele deve se referir a um membro existente da coleção ou ocorrerá um erro.

Um erro também ocorrerá se uma chave especificada duplicar a chave para um membro existente da coleção.

Exemplo

Este exemplo usa o método Add para adicionar Inst objetos (instâncias de uma classe chamada Class1 que contém uma variável InstanceNamepública ) a uma coleção chamada MyClasses. Para ver como isso funciona, insira um módulo de classe e declare uma variável pública chamada InstanceName no nível do Class1 módulo (tipo Public InstanceName) para manter os nomes de cada instância. Deixe o nome padrão como Class1. Copie e cole o código a seguir no Form_Load procedimento de evento de um módulo de formulário.

Dim MyClasses As New Collection    ' Create a Collection object.
Dim Num As Integer    ' Counter for individualizing keys.
Dim Msg
Dim TheName    ' Holder for names user enters.
Do
    Dim Inst As New Class1    ' Create a new instance of Class1.
    Num = Num + 1    ' Increment Num, then get a name.
    Msg = "Please enter a name for this object." & Chr(13) _
     & "Press Cancel to see names in collection."
    TheName = InputBox(Msg, "Name the Collection Items")
    Inst.InstanceName = TheName    ' Put name in object instance.
    ' If user entered name, add it to the collection.
    If Inst.InstanceName <> "" Then
        ' Add the named object to the collection.
        MyClasses. Add item := Inst, key := CStr(Num)
    End If
    ' Clear the current reference in preparation for next one.
    Set Inst = Nothing
Loop Until TheName = ""
For Each x In MyClasses
    MsgBox x.instancename, , "Instance Name"
Next

Confira também

• Objetos (Visual Basic for Applications)

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.