Método Add (VBA)
Agrega un miembro a un objeto Collection .
Sintaxis
objeto . Agregarelemento, clave, antes, después
La sintaxis del método Add contiene el cualificador de objeto y los argumentos con nombre siguientes:
Parte | Descripción |
---|---|
object | Obligatorio. Expresión de objeto que se evalúa como un objeto en la lista Se aplica a . |
elemento | Obligatorio. Una expresión de cualquier tipo que especifica el miembro que se debe agregar a la colección. |
key | Opcional. Una expresión de cadena exclusiva que especifica una cadena clave que se puede usar, en lugar de un índice posicional, para obtener acceso a un miembro de la colección. |
antes | Opcional. Una expresión que especifica una posición relativa en la colección. El miembro que se va a agregar se coloca en la colección antes que el miembro identificado por el argumentobefore. Si es una expresión numérica, antes debe ser un número de 1 al valor de la propiedad Count de la colección. En expresiones de cadena, before debe corresponder a la clave que se especificó al agregar a la colección el miembro al que se hace referencia. Puede especificar una posición before o after, pero no ambas. |
después | Opcional. Una expresión que especifica una posición relativa en la colección. El miembro que se desea agregar se sitúa en la colección detrás del miembro que identifica el argumento after. En expresiones numéricas, after debe ser un número comprendido entre 1 y el valor de la propiedad Count de la colección. En expresiones de cadena, after debe corresponder a la clave que se especificó al agregar a la colección el miembro al que se hace referencia. Puede especificar una posición before o after, pero no ambas. |
Comentarios
Independientemente de si los argumentos before o after se corresponden con expresiones numéricas o de cadena, deben hacer referencia a un miembro existente de la colección. De lo contrario, se producirá un error.
Del mismo modo, se producirá un error si una clave especificada duplica la clave de un miembro existente de la colección.
Ejemplo
En este ejemplo se usa el método Add para agregar Inst
objetos (instancias de una clase denominada Class1
que contiene una variable InstanceName
Public ) a una colección denominada MyClasses
. Para ver cómo funciona, inserte un módulo de clase y declare una variable pública llamada InstanceName
en el nivel de módulo de Class1
(tipo Public InstanceName
) para contener los nombres de cada instancia. Deje el nombre predeterminado como Class1
. Copie y pegue el código siguiente en el Form_Load
procedimiento de evento de un módulo de formulario.
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
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.