2.6.3.Элементы управления - Поле со списком


Элемент управления ComboBox (Поле со списком) сочетает в себе черты элементов управления ListBox и TextBox, предназначен для отображения списка значений и позволяет как вводить одно значение, так и выбирать одно значение из списка значений.




'Данные с листов Поздравитель и Подарок автоматически вносятся при открытии формы
Private Sub UserForm_Initialize()
ComboBox1.List = Application.Transpose(Worksheets("Поздравитель").Range("b2:b5").Value)
ComboBox1.Enabled = True
ListBox1.List = Application.Transpose(Worksheets("Подарок").Range("b2:b5").Value)
End Sub

 

 

Пример. Загрузка в список, имен всех рисунков указанного каталога.

 

Список можно заполнять динамически, что позволяет создавать браузеры для просмотра графических файлов данного каталога. Итак, имеется форма на которой расположены поле со списком и рисунок. Приводимый ниже код обеспечит заполнение списка именами графических файлов, расположенных в указанном каталоге. Выбор же элемента из списка обеспечит просмотр изображения в рисунке.


Private Sub UserForm_Initialize()
Dim FileName As String
FileName = Dir("c:\windows\*.bmp")
Do While FileName <> ""
FileName = Dir
ComboBox1.AddItem FileName, ComboBox1.ListCount
Loop
End Sub

Private Sub ComboBox1_Change()
Image1.Picture = LoadPicture("c:\windows\" & ComboBox1.Value)
End Sub



ПОИСК
МОЯ КНОПКА
Контакты
МБОУ "Лицей им.Атякшева"

628260 г. Югорск, ул. Ленина 24,
ХМАО-Югра, Тюменская область
Телефон: 8 (34675)2-48-30
Факс: 8 (34675)2-48-30



89222596815 nady_er@mail.ru
Карта
sample map