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. Войти в VBAAlt - 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; просмотров: 174; Мы поможем в написании вашей работы!






Мы поможем в написании ваших работ!