Основы VBA. Часть 8

Добавление элементов во время разработки

Во время разработки также можно заносить элементы в список, устанавли вая
значение свойства List (Список) в окне Properties (Свойства) комбини рованного окна.
Если выбрать опцию List property (Свойство List) и щелк нуть на стрелке вниз, можно ввести элемент списка и комбинацией клавиш + перейти на новую строку.
Добавлять элементы можно только в конец списка. Поэтому, если необхо димо расположить элементы списка в алфавитном порядке, следует устано вить значение свойства Sorted (Отсортирован) равным True.
Добавление элемента в заданную позицию
Чтобы добавить элемент в список в заданной позиции, необходимо в опера торе
задать значение индекса следующего элемента. В приведенном ниже примере элемент
«Pentium» помещается в первую позицию, сдвигая все элементы списка на одну
позицию вниз:
Combol.AddItem «Pentiu», 0
Обратим внимание, что значение индекса равно 0, а не 1, т. е. задает пер вый элемент
в списке.
Сортировка списка
Можно задать возможность добавления элементов в список в алфавитном по-
рядке, установив значение свойства sorted равным True и опуская индекс. Сортировка не чувствительна к регистру, поэтому слова «chardonnay» и «Chardonnay» трактуются как одинаковые. Если значение свойства Sorted равно True, то использование метода
Additem с параметром index может привести к непредсказуемым результатам.

Удаление элементов из списка

Метод RemoveItem позволяет удалять элементы из комбинированного окна:
Box.RemoveItem index
Параметры box и index имеют такой же смысл, что и при вызове метода Addltem.
Например, чтобы удалить первый элемент в списке, можно добавить сле дующую
строку кода:
Combol.RemoveItem 0
Метод clear (Очистить) очищает полностью весь список:
Combol.Clear
Доступ к содержимому списка с помощью своства Text
Самый простой способ получить значение текущего выбранного элемента в
списке — использовать свойство Text. Значение этого свойства соответству ет строке,
введенной в текстовое поле элемента управления во время вы полнения. Это может
быть элемент списка или строка, введенная пользова телем. Следующий код отобра-
жает информацию о вине Chardonnay, если пользова тель выбирает элемент
«Chardonnay» в списке:
Private Sub Combol_Click ()
If Combol.Text = «Chardonnay» Then
Textl.Text = «Chardonnay is a medium-bodied white wine.»
End If End Sub
Значением свойства Text является выбранный элемент в комбинированном окне.