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 InstanceName
pú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
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.