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

UptoLike

ВУЗ: 

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

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

Рубрика: 

86 87
Private Sub CommandButton1_Click()
UserForm5.Show
End Sub
Создание пользовательской формы c объектом ListBox1 орга-
низуется следующим образом:
войти в VBA – Alt-F11;
выбрать Insert (вставка);
выбрать UserForm.
Затем на появившуюся «платформу» объекта UserForm с пане-
ли Toolbox (см. рис. 9.4) последовательно переместить:
один объект ListBox;
два объекта CommandButton,
расположив их, как показано на рис. 10.8.
Рис. 10.8
Далее войти в VBA (Alt-F11), выбрать объект UserForm5.
Затем, выбрав объект CommandButton1, написать соответству-
ющую программу, обеспечивающую заполнение данными объек-
та ListBox1.
Программа заполнения списка объекта массивом, если
список состоит из нескольких колонок
Private Sub CommandButton1_Click()
Dim S(1 To 5, 1 To 3)
Dim i As Integer
Dim j As Integer
S(1, 1) = "N": S(1, 2) = "ФИО": S(1, 3) = "Оценка"
S(2, 1) = "1": S(2, 2) = "Сорокина": S(2, 3) = "5"
S(3, 1) = "2": S(3, 2) = "Донец": S(3, 3) = "5"
S(4, 1) = "3": S(4, 2) = "Гусева": S(4, 3) = "5"
S(5, 1) = "4": S(5, 2) = "Жигунова": S(5, 3) = "5"
With ListBox1
.ColumnCount = 3
.List = S
End With
End Sub
Private Sub CommandButton2_Click()
UserForm4.Hide
End Sub
Некоторые комментарии к программе:
в модуле Private Sub CommandButton1_Click(), программно
поддерживающем объект CommandButton1, при реализации спосо-
ба заполнения списка ListBox1 массивом (если список состоит из не-
скольких колонок) сначала объявляется двумерный массив S, а затем
с помощью операторов присваивания выполняется заполнение эле-
ментов массива. После чего к объекту ListBox1 применяется свойство
.List, в
качестве значения которого объекту ListBox1 передается дву-
мерный массив символьных констант "№", "ФИО, "Оценка" и т. д.;
так как данные, формируемые в объекте ListBox1, пред-
ставляют собой таблицу, состоящую из трех столбцов, к объекту
ListBox1 применяется свойство .ColumnCount, значение которого
устанавливает число столбцов в списке = 3;
модуль объекта CommandButton2, который в свойстве Cap-
tion переименован в «Закрыть», обеспечивает завершение функ-
ционирования объекта UserForm за счет
применения к объекту
UserForm5 метода Hide (скрыть).

Страницы