double arrow

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 (скрыть).

Заполнение списка массивом, если список состоит из нескольких колонок




Вызов объекта UserForm5, на базе которого организуется заполнение списка объекта ListBox1массивом, если список состоит из нескольких колонок, осуществляется с помощью следующего программного модуля:

Private Sub CommandButton1_Click()

UserForm5.Show







Сейчас читают про: