Метод Add (VBA)

Статья
04/07/2023

Добавляет элемент в объект 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

См. также

Объекты (Visual Basic для приложений)

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через