Следующая статья: ComboBox, OptionButton, Frame и другие объекты для лучшей работы с офисными приложениям
Содержание
- Наиболее часто используемые свойства элемента управления ListBox
- Синтаксис
- Наиболее часто используемые методы элемента управления ListBox
- Задачи на закрепление материала
Во многих создаваемых приложениях используют возможности массивов. Для доступа к элементам массивов часто применяют элемент управления ListBox. Элемент управления ListBox (список) создается с помощью кнопки Список. Данный элемент нужен для хранения списка значений. Из списка пользователь может выбрать одно или несколько значений, которые в последующем могут использоваться в тексте программы.
Наиболее часто используемые свойства элемента управления ListBox
ListIndex – возвращает номер текущего элемента списка, нумерация элементов списка начинается с нуля;
Listcount – возвращает число элементов списка;
TopIndex – возвращает элемент списка с наибольшим номером;
columnCount – устанавливает число столбцов в списке;
textcolumn – устанавливает столбец в списке, элемент которого возвращается свойством text;
text – возвращает выбранный в списке элемент;
List (row, column) – возвращает элемент списка, стоящий на пересечении указанных строки и столбца;
RowSourse – устанавливает диапазон, содержащий элементы списка;
ControlCourse – устанавливает диапазон (ячейку), куда возвращается выбранный элемент из списка;
multiSelect – устанавливает способ выбора элементов списка. Допустимые значения:
- fmMultiSelectSingle – выбор только одного элемента;
- fmMultiSelectMulti – разрешен выбор нескольких элементов посредством либо щелчка, либо нажатием клавиши Пробел;
- fmMultiSelectExtended – разрешено использование клавиши shift при выборе ряда последовательных элементов списка;
selected – допустимые значения: True (если элемент списка выбран) и False (в противном случае), используется для определения выделенного текста, когда свойство multiSelect имеет значение fmMultiSelectMulti или fmMultiSelectExtended;
columnWidths – устанавливает ширину столбцов списка.
Синтаксис
columnWidths=string,
где String – строка, устанавливающая ширину столбцов.
В примере устанавливается ширина каждого из трех столбцов списка:
With ListBox1
ColumnCount=3
ColumnWidths="20;30;30"
end With
columnHeads – допустимые значения: True (выводятся заголовки столбцов раскрывающего списка) и False (в противном случае);
listStyle – допустимые значения:
- fmListStylePlain – выбранный элемент из списка выделяется цветом;
- fmListStyleOption – перед каждым элементом в списке располагается флажок, и выбор элемента из списка соответствует установке этого флажка;
boundColumn – устанавливает тип, возвращаемый свойством Value. А именно:
- если свойство boundColumn равно 0, то свойство value возвращает индекс выбранной строки;
- если свойство boundColumn принимает значение из диапазона от 1 до количества столбцов в списке, то свойство value возвращает элемент из выбранной строки, стоящей в столбце, определенном свойством boundcolumn.
Наиболее часто используемые методы элемента управления ListBox
clear – удаляет все элементы из списка;
RemoveItem (index) – удаляет из списка элемент с указанным номером, где index – номер элемента;
AddItem ([item[, varIndex]]) – добавляет элемент в список, где item – элемент (строковое выражение), добавляемый в список, и varIndex – номер добавляемого элемента.
Заполнить список можно одним из следующих способов.
Поэлементно, если список состоит из одной колонки
With ListBox1
AddItem «июнь»
AddItem «июль»
AddItem «август»
ListIndex=0
End With
Массивом, если список состоит из одной колонки
With ListBox1
List=Array(«июнь», "июль", "август")
ListIndex=1
End With
Из диапазона A1:B4, в который предварительно введены элементы списка. Результат выбора (индекс выбранной строки) выводится в ячейку С1
With ListBox1
ColumnCount=2
RowSourse=«A1:B4»
ControlSourse=«C1»
BoundColumn=0
End With
Поэлементно, если список состоит из нескольких колонок, например двух
With ListBox1
ColumnCount=2
AddItem «июнь»
List(0.1)="сессия"
AddItem «июль»
List(1.1)="каникулы"
AddItem «август»
List(2.1)="отработка"
End With
Массивом, если список состоит из нескольких колонок, например двух
Dim A(2.1) As string
A(0.0)=«июнь»
A(0.1)=«сессия»
A(1.0)=«июль»
A(1.1)=«каникулы»
A(2.0)=«август»
A(2.1)=«отработка»
With ListBox1
ColumnCount=2
List=A
End With
Задачи на закрепление материала
Задача
Создать программу, которая при вводе имени пользователя и числа от 1 до 10 в текстовые поля формы выдает в метку label1 предсказание в зависимости от введенного значения.
При разработке программы использовать одномерный массив, объявляемый в процедуре Fortuna, содержащей все возможные предсказания.
Технология выполнения
- Откройте приложение Word, сохраните документ и перейдите в редактор VBA.
- Создайте форму.
- Пропишите обработчики событий нажатия на кнопки «Вывести предсказание » и «Закрыть ».
Форма задачи в рабочем состоянии
При обработке процедуры нажатия кнопки Вывести можно опираться на нижеприведенный листинг.
Примечание
Обратите внимание на создание процедуры, содержащей массив предсказаний, и вызов этой процедуры из процедуры нажатия кнопки «Вывести предсказание », учитывая «защиту от дурака».
Sub fortune(a As String, b As Integer)
Dim today(1 To 10)
today(1)=«Вы станете богатым и знаменитым за 15 минут»
today(2)=«Вам предстоит обед с незнакомцем»
today(3)=«Стоимость Ваших вкладов удвоится!»
today(4)=«Вы получите большой букет от своего почитателя»
today(5)=«Вы опоздаете на пару»
today(6)=«Все Ваши мечты сбудутся»
today(7)=«Вам вернут долг»
today(8)=«Вы выучите лекцию и ответите на опрос»
today(9)="Вы встретите своего давнего знакомого»
today(10)=«На Вас обратят внимание»
Label3.Caption=a & «, Вас ожидает следующее:» & today(b)
End Sub
Private Sub CommandButton1_Click()
Dim a As String
Dim b As Integer
a=TextBox1.Text
b=Val(TextBox2.Text)
If b > 0 And b <= 10 Then
Call fortune(a, b)
Else: Label3.Caption=«Вы ввели не то число!»
End If
End Sub
- Откомпилируйте программу.
- Запустите приложение на выполнение.
Задача.
Создать форму, в текстовые поля которой вводятся имя и пароль. Если пароль введен правильно, то пользователь получает доступ к списку некоторой группы, отражаемой в элементе listbox, при этом выдается сообщение о допуске пользователя к списку. Список организуется программно.
Технология выполнения
- Откройте приложение Word, сохраните документ и перейдите в редактор VBA.
- Создайте форму.
Форма задачи в рабочем состоянии. Сообщение о допуске
- Переименуйте форму с Name на frmOne. Для этого активизируйте форму (щелкните на ней), перейдите в окно свойств объекта (properties), выделите свойство Name (первая строка) и пропишите frmOne.
- Создайте текстовые поля textbox1 и textbox2. Первое будет использоваться для ввода имени, второе – для ввода пароля, поэтому переименуйте их на txtName и txtPassword (аналогично пункту 3).
- Как правило, вводимый пароль не отображается в поле. Чтобы вводимые символы пароля заменялись звездочками, выделите поле пароля, затем в окне Properties найдите свойство PasswordChar и задайте для него значение «*».
- Добавьте кнопки. Переименуйте первую кнопку на btnOK. Кнопка OK должна быть кнопкой по умолчанию. Это означает, что на нажатие клавиши Enter форма должна реагировать так же, как и на щелчок этой кнопки. Для этого измените значение свойства Default кнопки btnOK на True.
- Переименуйте вторую кнопку на btnCancel. Щелчок кнопки Cancel обычно эквивалентен нажатию клавиши Escape. Чтобы в вашем окне было именно так, задайте значение «True» для свойства Cancel.
- Создайте процедуру закрытия формы.
- Создайте процедуру работы кнопки ОК.
В заготовке процедуры
Private Sub btnOK_Click()
End Sub
вставьте оператор MsgBox Txtname & «получил(а) доступ». В этом операторе текст, введенный в поле txtName, объединяется с поясняющей строкой и выводится в информационном окне.
- Создайте процедуру для проверки пароля. Закроем доступ к кнопке OK, пока не введен верный пароль. Для этого измените свойство Enabled кнопки OK на False (доступ к кнопке закрыт) и введите новую процедуру:
Private Sub CheckOK()
Const pas=«abc» 'Пароль
If Txtpassword=pas Then 'Если текст в поле
Txtpassword совпадает с паролем, то btnOK.Enabled=True 'доступ к кнопке OK открыт
Else 'иначе
btnOK.Enabled=False 'доступ к кнопке OK закрыт
End If
End Sub
Процедура должна запускаться при вводе нового пароля. Для этого в окне формы щелкните дважды второе текстовое поле (предназначенное для пароля). В появившуюся процедуру
Private Sub Txtpassword_Change()
End Sub
введите единственную команду CheckOK, которая при внесении любых изменений в поле пароля будет запускать процедуру проверки пароля.
- Заполните список группы. Расположите на форме элемент управления ListBox. По умолчанию его имя ListBox1. Оставим его в таком виде. Заполнить список можно в операторе With:
With ListBox1
List=Array(«Иванова Марина», «Гончарова Елена», «Зотова Татьяна», «Кринченко Светлана», «Орлов Сергей», «Петров Александр»)
End With
Здесь List – свойство элемента ListBox, которое является массивом. Вставьте этот оператор в уже имеющуюся процедуру btnOK _ Click.
- Проверка работы формы. После запуска формы введите свое имя и верный пароль. Должна стать доступной кнопка ok. После ее нажатия появляются сообщение «Имя получил(а) доступ» и заполненный список. После нажатия кнопки Закрыть форма должна закрыться.
Дополнительные задания
- Дополните список с помощью метода AddItem. Синтаксис:
ИмяСписка. AddItem «новый элемент списка».
- Обработайте событие, связанное со щелчком по форме (мимо элементов управления). Пусть в ответ на это выводится какое-нибудь сообщение типа «Вы не попали по кнопке!».
Видео: «Очки надо?»
Юмористический роли про китайские очки
