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

UptoLike

ВУЗ: 

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

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

Рубрика: 

76 77
для списка ListBox3 применяется свойство .ControlSource,
с помощью которого устанавливается ячейка (в данном случае
это "A8"), в которую возвращается выбранный элемент списка
ListBox3. Так как на рис. 10.1 в списке ListBox3 была выбрана пя-
тая строка списка ListBox3, элементом которого является
"5", то
поэтому этот элемент и отобразился в ячейке A8;
в модуле Private Sub CommandButton1_Click(), программ-
но поддерживающем объект CommandButton1, при реализации
способа заполнения списка ListBox4 поэлементно, если список
состоит из нескольких колонок, к объекту ListBox4 применяется
метод AddItem, с помощью которого в операторе цикла With до-
бавляются элементы списка, например .AddItem "Июнь
" и т. д.;
к объекту ListBox4 применяется свойство .List, в качестве значе-
ний которого элементам списка ListBox4, находящимся на пересе-
чении указанных строк и столбцов, сообщаются соответствующие
символьные константы, например
"0.6", "30" и т. д.;
так как данные, формируемые в объекте ListBox4, представ-
ляют собой таблицу, состоящую из трех столбцов, то к объекту
ListBox4 применяется свойство .ColumnCount, значение которо-
го устанавливает число столбцов в списке = 3;
в модуле Private Sub CommandButton1_Click(), программ-
но поддерживающем объект CommandButton1, при реализации
способа заполнения списка ListBox5 массивом,
если список состо-
ит из нескольких колонок, сначала объявляется двумерный мас-
сив S, а затем с помощью операторов присваивания выполняет-
ся заполнение элементов массива. После этого к объекту ListBox5
применяется свойство .List, в качестве значения которого объек-
ту ListBox5 передается двумерный массив символьных констант
"№", "ФИО", "Оценка" и т. д. Кроме того, к объекту ListBox5
применяется свойство .ColumnCount, значение которого устанав-
ливает число столбцов в списке = 3;
модуль объекта CommandButton2, который в свойстве Cap-
tion переименован в «Выход», обеспечивает завершение функцио-
нирования объекта UserForm.
10.2. Заполнение объектов ListBox, расположенных
на разных объектах UserForm
Создание пользовательских форм c объектами ListBox це-
лесообразно
начинать с формирования кнопочного меню (см.
рис. 10.2).
Тогда в каждом модуле, программно поддерживающем соответ-
ствующий объект CommandButton, находится обращение к опре-
деленному объекту UserForm.
10.2.1. Заполнение списка поэлементно, если список
состоит из одной колонки
Вызов объекта UserForm1, на базе которого организуется за-
полнение списка объекта ListBox1 поэлементно (если список со-
стоит
из одной колонки), осуществляется с помощью следующего
программного модуля:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Создание пользовательской формы c объектом ListBox1 орга-
низуется следующим образом:
войти в VBA – Alt-F11;
выбрать Insert (вставка);
выбрать UserForm.
Затем на появившуюся «платформу» объекта UserForm с пане-
ли Toolbox (см. рис. 9.4) последовательно переместить:
один объект ListBox;
два объекта CommandButton,
расположив их, как показано на рис. 10.4.
Далее войти в VBA (Alt-F11), выбрать объект UserForm1.
Затем,
выбрав объект CommandButton1, написать соответству-
ющую программу, обеспечивающую заполнение данными объек-
та ListBox1.

Страницы