End Sub
End Sub
End If
End With
Else
With txtПароль
.Text = Empty
.SetFocus
4. Дважды щелкните по кнопке cmdОтменаи введите код для обработки события «Щелчок по кнопке Отмена»:
Private Sub cmdОтмена_Click()
Unload Me
5. Протестируйте работу программы при правильном и неправильном пароле.
Элемент управления Список создается кнопкой ListBox (рис. 12.11). Этот элемент используется для отображения данных, организованных списком. В списке пользователь может выбрать одно или несколько значений.
Рис. 12.11. Список Группа в форме в режиме
конструирования
Рис. 12.12. Этот же список во время
выполнения программы
ОБРАТИТЕ ВНИМАНИЕ: в режиме конструирования список похож на поле ввода. Во время выполнения программы, если в список не помещаются все его элементы, появляются линейки прокрутки (рис. 12.12).
Основным событием, связанным со списком, является событие Change.
12.6.1. Основные свойства
элемента управления ListBox
Перечислим основные свойства списка.
Свойство | Описание |
ListIndex | Возвращает номер выбранного элемента списка. Нумерация элементов списка начинается с нуля (всегда!!!). Если ни один элемент не выбран, то возвращается –1. |
ListCount | Возвращает количество элементов в списке. |
TopIndex | Возвращает элемент списка с наибольшим номером |
СolumnCount | Устанавливает число колонок в списке (рис. 12.13) lstCотрудник.СolumnCount = 2 |
Рис. 12.13. Список с двумя колонками | |
Text | Возвращает выбранный в списке элемент. |
List | Заполняет список из массива lstГруппа.List = Группы, где Группы – массив групп. Возвращает элемент списка, стоящий на пересечении указанной строки и столбца. Синтаксис: List(row,column) |
RowSource | Устанавливает диапазон, содержащий элементы списка. |
MultiSelect | Устанавливает способ выбора элементов списка: · fmMultiSelectSingle – выбор только одного элемента; · fmMultiSelectMulti– выбор нескольких элементов. Осуществляется либо щелчком мышки, либо клавишей [Пробел]. Повторный щелчок по выбранному элементу снимает его выделение; · fmMultiSelectExtended – использование клавиши [Shift] для выбора ряда последовательных элементов. |
Selected | Логическое свойство, которое возвращает значение True, если элемент списка выбран, и False – в противном случае. Используется для определения выбранного элемента, когда значение свойства MultiSelect установлено равным fmMultiSelectMulti или fmMultiSelectExtended. |
СolumnWidths | Устанавливает ширину столбцов. Синтаксис: СolumnWidths = String, где String – строка, устанавливающая ширину столбцов. В следующем примере устанавливается ширина каждого из трех столбцов списка: With lstПреподаватели .СolumnCount = 3 .СolumnWidths = "50;40;40" End With |
СolumnHeads | Логическое свойство, определяющее, выводить ли в списке заголовки колонок |
|
|