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

UptoLike

ВУЗ: 

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

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

Рубрика: 

80 81
Рис. 10.5
Программа заполнения списка объекта ListBox
массивом, если список состоит
из одной колонки»
Private Sub CommandButton1_Click()
‘Заполнение списка массивом, 1 колонка
With ListBox1
.List = Array("Июнь", "Июль", "Август", "Сентябрь", "Октябрь")
End With
End Sub
Private Sub ListBox1_Click()
TextBox1.Text = ListBox1.Text
Cells(10, 3).Value = ListBox1.Text
End Sub
Private Sub CommandButton2_Click()
UserForm2.Hide
End Sub
Некоторые комментарии к программе:
в модуле Private Sub ListBox1_Click(), программно под-
держивающем объект ListBox1, к объекту ListBox1 применяется
свойство .Text, которое позволяет получить значение текущего вы-
бранного элемента объекта ListBox1. Это значение присваивает-
ся объекту TextBox1, а так как выбран «сентябрь», то этот элемент
и отображен в окне объекта TextBox1. Кроме того, этот
же элемент
списка объекта ListBox1 выведен в ячейку десятой строки и пято-
го столбца таблицы Excel;
модуль объекта CommandButton2, который в свойстве Cap-
tion переименован в «Отменить», обеспечивает завершение функ-
ционирования объекта UserForm за счет применения к объекту
UserForm2 метода Hide (скрыть).
10.2.3. Заполнение списка из диапазона, в который
предварительно введены элементы
списка
Вызов объекта UserForm3, на базе которого организуется за-
полнение списка объекта ListBox1 из диапазона, осуществляется
с помощью следующего программного модуля:
Private Sub CommandButton3_Click()
UserForm3.Show
End Sub
Создание пользовательской формы c объектом ListBox1 орга-
низуется следующим образом:
войти в VBA – Alt-F11;
выбрать Insert (вставка);
выбрать UserForm.
Затем на появившуюся «платформу» объекта UserForm с пане-
ли Toolbox (см. рис. 9.4) последовательно переместить:
один объект ListBox;
два объекта CommandButton,
расположив их, как показано на рис. 10.6.
Далее войти в VBA (Alt-F11), выбрать объект UserForm3.

Страницы