Информатика для I курса. Часть I. Никифоров С.Н. - 37 стр.

UptoLike

ВУЗ: 

СПбГАСУ | Санкт-Петербург

Составители: 

Рубрика: 

72 73
Рис. 10.3
ЧАСТЬ ПЕРВАЯ
10.1. Заполнение объектов ListBox, расположенных
на одном объекте UserForm
Создание пользовательской формы c объектами ListBox орга-
низуется следующим образом:
войти в VBA – Alt-F11;
выбрать Insert (вставка);
выбрать UserForm.
Затем на появившуюся «платформу» объекта UserForm с пане-
ли Toolbox (см. рис. 9.4) последовательно переместить:
пять объектов ListBox;
один объект TextBox;
два объекта CommandButton,
расположив их,
как показано на рис. 10.1.
Далее войти в VBA (Alt-F11), выбрать объект UserForm.
Затем, выбрав объект CommandButton1, написать соответству-
ющую программу, обеспечивающую заполнение данными объек-
тов ListBox1 – ListBox5.
Для реализации заполнения объекта ListBox3 способом «Из
диапазона» необходимо предварительно ввести элементы списка
в выбранный диапазон, например A1:B6 (см. рис. 10.1).
Программа заполнения объектов ListBox, расположенных
на одном объекте
UserForm
Private Sub CommandButton1_Click()
Dim S(1 To 5, 1 To 3) As String
Dim i As Integer, j As Integer
'Заполнение списка поэлементно, 1 колонка
With ListBox1
.AddItem "Июнь"
.AddItem "Июль"
.AddItem "Август"
.AddItem "Сентябрь"
End With
'Заполнение списка массивом, 1 колонка
With ListBox2
.List = Array("Июнь", "Июль", "Август", "Сентябрь", "Октябрь")
TextBox1 = .ListIndex
.ControlSource = "A7"
End With
'Заполнение списка из диапазона
With ListBox3
.ColumnCount = 2

Страницы