Compartir a través de


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 InstanceNamePublic ) 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.