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

UptoLike

ВУЗ: 

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

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

Рубрика: 

90 91
.ColumnCount = 3
.AddItem "июнь"
.List(0, 1) = "06"
.List(0, 2) = "30"
.AddItem "июль"
.List(1, 1) = "07"
.List(1, 2) = "31"
.AddItem "август"
.List(2, 1) = "08"
.List(2, 2) = "31"
.AddItem "сентябрь"
.List(3, 1) = "09"
.List(3, 2) = "30"
End With
End Sub
Private Sub CommandButton2_Click()
ListBox1.Clear
ListBox2.Clear
ListBox4.Clear
ListBox5.Clear
End Sub
Private Sub CommandButton3_Click()
Sheets("лист0").Select
End Sub
Некоторые комментарии к программе:
в модуле Private Sub CommandButton1_Click(), программ-
но поддерживающем объект CommandButton1, реализуются те
же программы, что и в модуле, программно поддерживающем объ-
ект CommandButton1 раздела 10.1;
в модуле Private Sub CommandButton1_Click(), программ-
но поддерживающем объект CommandButton1, не реализуется
способ заполнения объекта ListBox «из диапазона», т. е. объект
ListBox3 отсутствует;
в модуле Private Sub CommandButton2_Click()
, программ-
но поддерживающем объект CommandButton2, который в свой-
стве Caption переименован в «Очистить», к объекту ListBox1 при-
менен метод .Clear, с помощью которого осуществляется удаление
элементов списка. Аналогично операции применяются к элемен-
там списков объектов ListBox2, ListBox4 и ListBox5;
в модуле Private Sub CommandButton3_Click(), программ-
но поддерживающем объект CommandButton3, который в
свой-
стве Caption переименован в «Меню», к объекту Sheets применен
метод .Select, с помощью которого выполняется переход на лист
оглавления всего пакета.
ЧАСТЬ ВТОРАЯ
10.4. Табулирование функций в объектах ListBox
При решении задач табулирования функций в объектах ListBox
создаваемые объекты ListBox можно размещать как на специально
созданных объектах UserForm, так и на листах Excel, используя при
этом для вызова и табуляции кнопки (объекты CommandButton).
Создание пользовательской формы c объектом ListBox органи-
зуется следующим образом:
войти в VBA – Alt-F11;
выбрать Insert (вставка);
выбрать UserForm.
Затем на появившуюся «платформу» объекта UserForm с пане-
ли Toolbox (см. рис. 9.4) последовательно переместить:
один объект ListBox;
три объекта Label;
три объекта TextBox;
три объекта OptionButton;
два объекта CommandButton,
расположив их, как показано на рис. 10.10.
Далее войти в VBA (Alt-F11), выбрать объект UserForm.
Затем, выбрав объект CommandButton1, написать соответству-
ющую программу, обеспечивающую табуляцию функций в объек-
те ListBox1.

Страницы