Метод ListBox.AddItem (Access)

Добавляет новый элемент в список значений, отображаемых указанным элементом управления list box.

Синтаксис

expression. AddItem (Item, Index)

Выражение Переменная, представляющая объект ListBox .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Элемент	Обязательный	String	Отображаемый текст для нового элемента.
Индекс;	Необязательный	Variant	Положение элемента в списке. Если этот аргумент опущен, элемент добавляется в конец списка.

Замечания

Свойству RowSourceType указанного элемента управления должно быть присвоено значение Список значений.

Этот метод допустим только для элементов управления со списком или списком в формах.

Номера элементов списка начинаются с нуля. Если значение аргумента Item не соответствует существующему номеру элемента, возникает ошибка.

Для списков с несколькими столбцами используйте точку с запятой, чтобы разделить строки для каждого столбца (например, "1010;красный;большой" для списка из трех столбцов). Если аргумент Item содержит меньше строк, чем столбцы в элементе управления, элементы будут добавляться, начиная с самого левого столбца. Если аргумент Item содержит больше строк, чем столбцы в элементе управления, дополнительные строки игнорируются.

Используйте метод RemoveItem для удаления элементов из списка значений.

Пример

В этом примере элемент добавляется в конец списка в элементе управления "Поле списка". Чтобы функция работала, необходимо передать ей объект ListBox , представляющий элемент управления list box в форме, и значение String , представляющее текст добавляемого элемента.

Function AddItemToEnd(ctrlListBox As ListBox, _ 
 ByVal strItem As String) 
 
 ctrlListBox.AddItem Item:=strItem 
 
End Function

В этом примере элемент добавляется в начало списка в элементе управления "Поле со списком". Чтобы функция работала, необходимо передать ей объект ComboBox , представляющий элемент управления поле со списком в форме, и значение String , представляющее текст добавляемого элемента.

Function AddItemToBeginning(ctrlComboBox As ComboBox, _ 
 ByVal strItem As String) 
 
 ctrlComboBox.AddItem Item:=strItem, Index:=0 
 
End Function

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

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