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

UptoLike

ВУЗ: 

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

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

Рубрика: 

74 75
.RowSource = "A1:B6"
.ControlSource = "A8"
End With
'Заполнение списка поэлементно, несколько колонок
With ListBox4
.ColumnCount = 3
.AddItem "Июнь"
.List(0, 1) = "0.6"
.List(0, 2) = "30"
.AddItem "Июль"
.List(1, 1) = "0.7"
.List(1, 2) = "31"
.AddItem "Август"
.List(2, 1) = "0.8"
.List(2, 2) = "31"
.AddItem "Сентябрь"
.List(3, 1) = "0.9"
.List(3, 2) = "30"
End With
'Заполнение списка массивом, несколько колонок
S(1, 1) = "№": S(1, 2) = "ФИО": S(1, 3) = "Оценка"
S(2, 1) = "1": S(2, 2) = "Петров": S(2, 3) = "3"
S(3, 1) = "2": S(3, 2) = "Шацков": S(3, 3) = "5"
S(4, 1) = "3": S(4, 2) = "Фролькис": S(4, 3) = "2"
S(5, 1) = "4": S(5, 2) = "Печкин": S(5, 3) = "4"
With ListBox5
.ColumnCount = 3
.List = S
End With
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Некоторые комментарии к программе:
в модуле Private Sub CommandButton1_Click(), программ-
но поддерживающем объект CommandButton1, при реализа-
ции способа поэлементного заполнения списка ListBox1 к объ-
екту ListBox1 применяется метод AddItem, с помощью которого
в операторе цикла With добавляются элементы списка, например
.AddItem "Июнь
" и т. д.;
в модуле Private Sub CommandButton1_Click(), программно
поддерживающем объект CommandButton1, при реализации спо-
соба заполнения списка ListBox2 массивом, если список состоит
из одной колонки, к объекту ListBox2 применяется свойство .List,
в качестве значения которого объекту ListBox2 передается одно-
мерный массив символьных констант
"Июнь", "Июль" и т. д.;
для списка ListBox2 применяется свойство .ControlSource,
с помощью которого устанавливается ячейка (в данном случае
это
"A7"), в которую возвращается выбранный элемент списка
ListBox2; так как на рис. 10.1 в списке ListBox2 была выбрана вто-
рая строка, второй элемент списка "Июль", то поэтому этот эле-
мент и отобразился в ячейке A7;
в операторе цикла With объекта ListBox2 для объекта
TextBox1 применяется свойство .ListIndex, которое возвращает
номер текущего, т. е. выбранного, элемента списка. Так как пер-
воначально после вызова объекта UserForm объекты ListBox1 –
ListBox5 не заполнены и, следовательно, в объекте ListBox2
никакой элемент списка
не выбран, то после нажатия кнопки
«Заполнить» в окне объекта TextBox1 (см. рис. 10.1) появляется
значение «-1». После выбора в объекте ListBox2 элемента списка
"Июль" и повторного нажатия кнопки «Заполнить» в окне объек-
та TextBox1 (см. рис. 10.1) появляется значение «1», а не «2», так
как нумерация элементов списка начинается с нуля;
в модуле Private Sub CommandButton1_Click(), программно
поддерживающем объект CommandButton1, при реализации спо-
соба заполнения списка ListBox3 из диапазона к объекту ListBox3
применяется свойство RowSours, с помощью которого устанавли-
вается диапазон, содержащий элементы списка, в данном случае
"A1:B6";
так как данные, передаваемые из указанного диапазона
в объект ListBox3, представляют собой таблицу, состоящую из двух
столбцов, то к объекту ListBox3 применяется свойство .ColumnCount,
значение которого устанавливает число столбцов в списке = 2;

Страницы