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

UptoLike

ВУЗ: 

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

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

Рубрика: 

82 83
Рис. 10.6
Затем, выбрав объект CommandButton1, написать соответству-
ющую программу, обеспечивающую заполнение данными объек-
та ListBox1.
Программа заполнения списка объекта
ListBox из диапазона
Private Sub CommandButton1_Click()
With ListBox1
.ColumnCount = 2
.RowSource = "A1:B8"
End With
End Sub
Private Sub CommandButton2_Click()
UserForm3.Hide
End Sub
Некоторые комментарии к программе:
в модуле Private Sub CommandButton1_Click(), программно
поддерживающем объект CommandButton1, при реализации спо-
соба заполнения списка ListBox1 из диапазона к объекту ListBox1
применяется свойство RowSours, с помощью которого устанавли-
вается диапазон, содержащий элементы списка, в данном случае
"A1:B8";
так как данные, передаваемые из указанного диапазона
в объект ListBox1, представляют собой таблицу, состоящую
из двух столбцов, к объекту ListBox1 применяется свойство
.ColumnCount, значение которого устанавливает число столбцов
в списке = 2;
модуль объекта CommandButton2, который в свойстве Cap-
tion переименован в «Закрыть», обеспечивает завершение функ-
ционирования объекта UserForm за счет
применения к объекту
UserForm3 метода Hide (скрыть).
10.2.4. Заполнение списка поэлементно, если список
состоит из нескольких колонок
Вызов объекта UserForm4, на базе которого организуется по-
элементное заполнение списка объекта ListBox1 (если список со-
стоит из нескольких колонок), осуществляется с помощью следу-
ющего программного модуля:
Private Sub CommandButton1_Click()
UserForm4.Show
End Sub
Создание пользовательской формы c объектом ListBox1 орга-
низуется следующим образом:
войти в VBA – Alt-F11;
выбрать Insert (вставка);
выбрать UserForm.
Затем на появившуюся «платформу» объекта UserForm с пане-
ли Toolbox (см. рис. 9.4) последовательно переместить:
один объект ListBox;
два объекта CommandButton,
расположив их, как показано на рис. 10.7.

Страницы