Adds a member to a Collection object.
object.Add item, key, before, after
The Add method syntax has the following object qualifier and named arguments:
|object||Required. An object expression that evaluates to an object in the Applies To list.|
|item||Required. An expression of any type that specifies the member to add to the collection.|
|key||Optional. A unique string expression that specifies a key string that can be used, instead of a positional index, to access a member of the collection.|
|before||Optional. An expression that specifies a relative position in the collection. The member to be added is placed in the collection before the member identified by the before argument. If a numeric expression, before must be a number from 1 to the value of the collection's Count property. If a string expression, before must correspond to the key specified when the member being referred to was added to the collection. You can specify a before position or an after position, but not both.|
|after||Optional. An expression that specifies a relative position in the collection. The member to be added is placed in the collection after the member identified by the after argument. If numeric, after must be a number from 1 to the value of the collection's Count property. If a string, after must correspond to the key specified when the member referred to was added to the collection. You can specify a before position or an after position, but not both.|
Whether the before or after argument is a string expression or numeric expression, it must refer to an existing member of the collection, or an error occurs.
An error also occurs if a specified key duplicates the key for an existing member of the collection.
This example uses the Add method to add
Inst objects (instances of a class called
Class1 containing a Public variable
InstanceName) to a collection called
MyClasses. To see how this works, insert a class module and declare a public variable called
InstanceName at module level of
Public InstanceName) to hold the names of each instance. Leave the default name as
Class1. Copy and paste the following code into the
Form_Load event procedure of a form module.
'-------------- Class Modules -------------- Public InstanceName
'-------------- Modules -------------- Sub CollectionDemo() 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 End Sub