Работа с окном ComboBox

Работа со списком и окном с раскрывающимся списком

При применении окон списков и окон с раскрывающимися списками приходится решать две основных проблемы:

· как получить информацию о выбранном (или выбранных) элементе;

· как изменить список.

Описанные ниже приемы пригодны для изменения списков указанных окон программным путем как с вводом, так и без ввода данных с клавиатуры.

Содержимое списка окна, как правило, создается во время проектирования формы. Объект имеет три стиля (свойство Style), из них только нулевой и первый позволяют менять содержимое списка окна, хранящееся в свойстве List.

Получить информацию из окна ComboBox очень просто, достаточно прочитать свойство Text оператором присваивания:

Имя_переменной =имя_объекта.Text

Дополнительную информацию можно получить, применив свойства ListIndex и ItemData, т.к. первое из них содержит номер выбранного элемента, а второе – массив чисел, поставленных программистом в соответствие списку List:

Имя_переменной = имя_объекта.ItemData(имя_объекта.ListIndex).

Пример получения полной информации из окна приведен на рис. 4.23. В этом примере переменные a и b являются приемниками информации, а окну ComboBox присвоено имя Combo1. Предполагается, что в свойство-массив ItemData записаны целые числа.

Dim a as string: Dim b as integer ... a = Combo1.Text b=Combo1.ItemData(Combo1.ListIndex) ...

Рис. 4.23. Чтение информации из окна ComboBox

Несколько труднее происходит изменение массива строк списка (свойство List) и поставленного ему в соответствие массива чисел в свойстве

Рис. 4.24. Форма для работы со списком окна ComboBox

ItemData. Для управления списком проще всего применять две кнопки (рис. 4.24). Кнопка "+" добавляет пункт в список List, кнопка "-" удаляет пункт из списка. В качестве сигнала "добавить пункт в список" можно применить нажатие клавиши Enter. Существенным моментом является необходимость добавлять вручную в массив ItemData число, соответствующее новому пункту

списка List. При удалении пункта из списка List свойство ItemData корректируется автоматически. Текст программы, изменяющей список окна, приведен ниже.

Private Sub CBM_Click() 'удаление элемента из списка

Combo1.RemoveItem (Combo1.ListIndex) 'при нажатии кнопки "-"

Дата добавления: 2014-11-29