Compartilhar via


Adicionar método (VBA)

Adiciona um membro a um objeto Coleção .

Sintaxe

objeto. Adicionaritem, chave, antes, depois

A sintaxe Adicionar método 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 especifique o membro a adicionar à coleção.
key Opcional. Uma expressão de cadeia exclusiva que especifica uma cadeia de chaves que pode ser utilizada, em vez de um índice posicional, para aceder a um membro da coleção.
antes Opcional. Uma expressão que especifica uma posição relativa na coleção. O membro a adicionar é colocado na coleção antes do membro identificado pelo argumentoanterior. Se for uma expressão numérica, antes tem de ser um número de 1 para o valor da propriedade Contagem da coleção. Se uma expressão de cadeia, antes tem de corresponder à chave especificada quando o membro a ser referido foi adicionado à coleção. Pode especificar uma posição anterior ou posterior , mas não ambas.
depois de Opcional. Uma expressão que especifica uma posição relativa na coleção. O membro a adicionar é colocado na coleção após o membro identificado pelo argumento seguinte . Se for numérico, depois tem de ser um número de 1 para o valor da propriedade Contagem da coleção. Se for uma cadeia, depois tem de corresponder à chave especificada quando o membro referido foi adicionado à coleção. Pode especificar uma posição anterior ou posterior , mas não ambas.

Comentários

Quer o argumento antes ou depois seja uma expressão de cadeia ou expressão numérica, tem de se referir a um membro existente da coleção ou ocorre um erro.

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

Exemplo

Este exemplo utiliza o método Adicionar 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 isto funciona, insira um módulo de classe e declare uma variável pública chamada InstanceName ao nível do módulo de Class1 (tipo Public InstanceName) para conter os nomes de cada instância. Deixe o nome predefinido como Class1. Copie e cole o seguinte código 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

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.