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

UptoLike

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

84 85
Рис. 10.7
Далее войти в VBA (Alt-F11), выбрать объект UserForm4.
Затем, выбрав объект CommandButton1, написать соответству-
ющую программу, обеспечивающую заполнение данными объек-
та ListBox1.
Программа поэлементного заполнения списка объекта,
если список состоит из нескольких колонок
Private Sub CommandButton1_Click()
With ListBox1
.ColumnCount = 3
.AddItem "Сорокина"
.List(0, 1) = "Информатика"
.List(0, 2) = "зачет"
.AddItem "Донец"
.List(1, 1) = "Математика"
.List(1, 2) = "зачет"
.AddItem "Гусева"
.List(2, 1) = "Физика"
.List(2, 2) = "зачет"
.AddItem "Жигунова"
.List(3, 1) = "Начертательная геометрия"
.List(3, 2) = "зачет"
End With
Private Sub CommandButton2_Click()
UserForm4.Hide
End Sub
Некоторые комментарии к программе:
в модуле Private Sub CommandButton1_Click(), программно
поддерживающем объект CommandButton1, при реализации спо-
соба заполнения списка ListBox1 поэлементно (если список состо-
ит из нескольких колонок) к объекту ListBox1 применяется метод
AddItem, с помощью которого в операторе цикла With добавляются
элементы списка, например .AddItem "Сорокина
" и т. д.; кроме
того, к объекту ListBox1 применяется свойство .List, в качестве
значений которого элементам списка ListBox1, находящимся на
пересечении указанных строк и столбцов, сообщаются соответ-
ствующие символьные константы, например
"Информатика",
"зачет" и т. д.;
так как данные, формируемые в объекте ListBox1, пред-
ставляют собой таблицу, состоящую из трех столбцов, к объекту
ListBox1 применяется свойство .ColumnCount, значение которого
устанавливает число столбцов в списке = 3;
модуль объекта CommandButton2, который в свойстве
Caption переименован в «Закрыть», обеспечивает завершение
функционирования объекта UserForm за счет применения
к объ-
екту UserForm4 метода Hide (скрыть).
10.2.5. Заполнение списка массивом, если список состоит
из нескольких колонок
Вызов объекта UserForm5, на базе которого организуется за-
полнение списка объекта ListBox1 массивом (если список состоит
из нескольких колонок), осуществляется с помощью следующего
программного модуля: