Метод Add (VBA)
Добавляет элемент в объект Collection .
Синтаксис
object. Добавлениеэлемента, ключа, до, после
В синтаксисе метода Add используются следующие квалификатор объекта и именованные аргументы:
Part | Описание |
---|---|
object | Обязательно. Выражение объекта, которое вычисляет объект в списке Применимо к. |
элемента | Обязательно. Выражение любого типа, определяющее элемент, который требуется добавить в коллекцию. |
key | Необязательный параметр. Уникальное строковое выражение, задающее строку ключа, которая может использоваться вместо индекса позиции для доступа к элементу коллекции. |
Перед | Необязательный параметр. Выражение, определяющее относительную позицию в коллекции. Добавляемый элемент помещается в коллекцию перед элементом, определяемым аргументомbefore. Если числовое выражение, параметр before должен быть числом от 1 до значения свойства Count коллекции. Если это строковое выражение, то аргумент before должен соответствовать значению key, указанному при добавлении в коллекцию элемента, на который определена ссылка. Допускается задавать позицию либо с помощью аргумента before, либо с помощью after, но не одновременно обоих аргументов. |
После | Необязательный параметр. Выражение, определяющее относительную позицию в коллекции. Добавляемый элемент помещается в позицию после элемента, определяемого аргументом after. Если это числовое выражение, то аргумент after должен быть числом в диапазоне от 1 до значения свойства Count коллекции. Если это строковое выражение, то аргумент after должен соответствовать значению key, указанному при добавлении в коллекцию элемента, на который определена ссылка. Допускается задавать позицию либо с помощью аргумента before, либо с помощью after, но не одновременно обоих аргументов. |
Замечания
Независимо от того, является аргумент before или after строковым или числовым выражением, он должен ссылаться на существующий элемент коллекции. В противном случае происходит ошибка.
Также ошибка возникает в том случае, если заданный аргумент key повторяет значение аргумента key для существующего элемента коллекции.
Пример
В этом примере метод Add используется для добавления Inst
объектов (экземпляров класса Class1
, содержащего общедоступную переменную InstanceName
) в коллекцию с именем MyClasses
. Чтобы увидеть, как это работает, вставьте модуль класса и объявите общедоступную переменную с именем InstanceName
на уровне Class1
модуля (тип Public InstanceName
) для хранения имен каждого экземпляра. Оставьте имя по умолчанию .Class1
Скопируйте и вставьте следующий код в процедуру Form_Load
события модуля формы.
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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.