Метод ComboBox.AddItem (Access)
Добавляет новый элемент в список значений, отображаемых указанным элементом управления со списком.
Синтаксис
expression. AddItem (Item, Index)
Выражение Переменная, представляющая объект ComboBox .
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
Элемент | Обязательный | 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 и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по