Программное раскрытие элемента управления ComboBox из кода VBA Excel. Разворачивание поля со списком с помощью метода ComboBox.DropDown.
Метод ComboBox.DropDown
DropDown — это метод, отображающий часть списка элемента управления ComboBox. Количество отображаемых элементов поля со списком задается свойством ComboBox.ListRows (по умолчанию — 8 элементов).
Метод DropDown используется для программного открытия части списка элемента управления ComboBox.
Самые распространенные варианты событий для программного раскрытия поля со списком:
- Инициализация пользовательской формы с элементом управления ComboBox (отображение списка при загрузке пользовательской формы).
- Клик по текстовому полю элемента управления ComboBox (список разворачивается при установке курсора в текстовое поле ComboBox).
Раскрытие поля со списком при открытии формы
Разворачивание поля со списком при загрузке пользовательской формы:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Private Sub UserForm_Initialize() With ComboBox1 'Создание списка .AddItem "Камень" .AddItem "Ножницы" .AddItem "Бумага" 'Значение по умолчанию .ListIndex = 0 'Отображение списка .DropDown End With End Sub |
Данный код располагается в модуле формы.
Раскрытие списка ComboBox при клике по полю
Отображение списка при клике по текстовому полю элемента управления ComboBox:
|
1 2 3 4 5 6 7 8 9 |
'Программное раскрытие ComboBox при нажатии левой кнопки мыши на текстовом поле элемента управления Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ComboBox1.DropDown End Sub 'Программное раскрытие ComboBox при отпускании левой кнопки мыши на текстовом поле элемента управления Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ComboBox1.DropDown End Sub |
Одна из процедур размещается в модуле формы.
Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.