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



КОНТАКТЫ
Ермакова Надежда Игоревна
Лицей им.Г.Ф.Атякшева
ХМАО-Югорск, ул Ленина 24



+7 9222596815 nady_er@mail.ru
КАРТА
sample map