Private Sub CommandButton2_Click()
UserForm 4 .Hide
End Sub
Некоторые комментарии к программе:
– В модуле Private Sub CommandButton 1_ Click (), программно поддерживающем объект CommandButton 1, при реализации способа заполнения списка ListBox 1 поэлементно, если список состоит из нескольких колонок, к объекту ListBox 1 применяется метод AddItem, с помощью которого в операторе цикла With добавляются элементы списка, например . AddItem "Сорокина" и т.д.; Кроме того, к объекту ListBox 1 применяется свойство . List, в качестве значений которого элементам списка ListBox 1, находящимся на пересечении указанныхстрок и столбцов, сообщаются соответствующие символьные константы, например, "Информатика", "зачет" и т.д.;
– Так как данные, формируемые в объекте ListBox 1 представляют собой таблицу, состоящую из трех столбцов, то, к объекту ListBox 1 применяется свойство . ColumnCount , значение которого устанавливаетчисло столбцов в списке = 3;
– Модуль объекта CommandButton 2, который в свойстве Caption переименован в “Закрыть”,обеспечивает завершение функционирования объекта UserForm за счет применения к объекту UserForm 4 метода Hide (скрыть).
Заполнение списка массивом, если список состоит из нескольких колонок
Вызов объекта UserForm 5, на базе которого организуется заполнение списка объекта ListBox 1 массивом, если список состоит из нескольких колонок, осуществляется с помощью следующего программного модуля:
Private Sub CommandButton1_Click()
UserForm 5 .Show
|
|
|
End Sub
Создание пользовательской формы c объектом ListBox 1 организуется следующим образом:
1. Войти в VBA – Alt - F 11;
2. Выбрать Insert (вставка);
3. Выбрать UserForm .
Затем на появившуюся “платформу” объекта UserForm с панели Toolbox, рис. 9.4, последовательно переместить:
один объект ListBox;
два объекта CommandButton ,
расположив их, как показано на рис. 10.8.
Рис. 10.8.
Далее войти в VBA (Alt-F11), выбрать объект UserForm 5.
Затем,выбрав, объект CommandButton 1, написать соответствующую программу, обеспечивающую заполнение данными объекта ListBox 1.
Программа заполнение списка объекта массивом, если список состоит из нескольких колонок
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()
UserForm 4. Hide
End Sub
Некоторые комментарии к программе:
– В модуле Private Sub CommandButton 1_ Click (), программно поддерживающем объект CommandButton 1, при реализации способа заполнения списка ListBox 1 массивом, если список состоит из нескольких колонок, сначала объявляется двумерный массив S , а затем с помощью операторов присваивания выполняется заполнение элементов массива. После чего к объекту ListBox 1 применяется свойство . List, в качестве значения которого объекту ListBox 1 передается двумерный массив символьных констант "№","ФИО,"Оценка"и т.д.
|
|
|
– Так как данные, формируемые в объекте ListBox 1 представляют собой таблицу, состоящую из трех столбцов, то, к объекту ListBox 1 применяется свойство . ColumnCount , значение которого устанавливаетчисло столбцов в списке = 3;
– Модуль объекта CommandButton 2, который в свойстве Caption переименован в “Закрыть”,обеспечивает завершение функционирования объекта UserForm за счет применения к объекту UserForm 5 метода Hide (скрыть).
Дата добавления: 2019-03-09; просмотров: 238; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!