Чтение онлайн

на главную - закладки

Жанры

Офисное программирование
Шрифт:

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, которая при внесении любых изменений в поле пароля будет запускать процедуру проверки пароля.

11. Заполните список группы. Расположите на форме элемент управления ListBox. По умолчанию его имя ListBox1. Оставим его в таком виде. Заполнить список можно в операторе With:

With ListBox1

List = Array(«Иванова Марина», «Гончарова Елена», «Зотова Татьяна», «Кринченко Светлана», «Орлов Сергей», «Петров Александр»)

End With

Здесь List – свойство элемента ListBox, которое является массивом. Вставьте этот оператор в уже имеющуюся процедуру btnOK_Click.

12. Проверка работы формы. После запуска формы введите свое имя и верный пароль. Должна стать доступной кнопка ok. После ее нажатия появляются сообщение «Имя получил(а) доступ» и заполненный список. После нажатия кнопки Закрыть форма должна закрыться.

Дополнительные задания

13. Дополните список с помощью метода AddItem. Синтаксис:

ИмяСписка. AddItem «новый элемент списка».

14. Обработайте событие, связанное со щелчком по форме (мимо элементов управления). Пусть в ответ на это выводится какое-нибудь сообщение типа «Вы не попали по кнопке!».

4.2. Элементы управления ComboBox, OptionButton и Frame

Поле со списком

Элемент управления СотbоВох

(поле со списком) создается с помощью соответствующего элемента. Элемент управления СотЪоВох применяется для хранения списка значений. Он сочетает в себе функциональные возможности списка ListBox и поля TextBox. В отличие от ListBox, в элементе управления СотЪоВох отображается только один элемент списка. Кроме того, у него отсутствует режим выделения нескольких элементов списка, но он позволяет вводить значение, используя поле ввода, как это делает элемент управления TextBox.

Свойства объекта ComboBox, такие как ListIndex, ListCount, Enabled, List, и методы Clear, RemoveItem и AddItem аналогичны соответствующим свойствам и методам списка ListBox. Кроме того, у него есть ряд уникальных свойств:

DropButtonStyle – устанавливает вид раскрывающегося списка. Допустимые значения:

fmDropButtonStylePlain – кнопка без символов;

fmDropButtonStyleArrowDisplays – кнопка со стрелкой;

fmDropButtonStyleEllips – кнопка с эллипсом;

fmDropButtonStyleReduce – кнопка с линией.

ListRows – устанавливает число элементов, отображаемых в раскрываемом списке.

MatchRequired – допустимые значения: True (нельзя ввести значения) и False (в противном случае).

MatchFound – допустимые значения: True (среди элементов раскрывающегося списка имеется элемент, совпадающий с вводимым в поле ввода раскрывающегося списка) и False (в противном случае).

Переключатель и рамка

Элемент управления OptionButton

(переключатель) создается с помощью соответствующего элемента. Он позволяет выбрать один из нескольких взаимоисключающих параметров или действий. Переключатели обычно отображаются группами, обеспечивая возможность выбора альтернативного варианта (см. п. 3.3).

Элемент управления Frame

(рамка) создается с помощью соответствующего элемента. Он используется для визуальной группировки элементов управления. Основным свойством рамки является caption, отображающее надпись рамки.

Задачи на закрепление материала

Пример 22. [1] Создать программу, которая позволяет при выделении из списка формы нескольких чисел производить суммирование, находить произведение или среднее значение в зависимости от выбора действия (операции).

Нажатие кнопки «Вычислить» должно привести к выполнению выбранной операции над выбранными числами и выводу результата в поле «Результат» (рис. 40).

1

Гарнаев А. Самоучитель vba. СПб.: БХВ-Петербург, 2004.

Рис. 40. Разработанная форма примера 22 в рабочем состоянии

Технология выполнения

Обсудим, как приведенная ниже программа решает перечисленные пункты задачи и что происходит в программе.

UserForm_Initialize

1. Активизирует диалоговое окно

2. Запрещает ввод данных в поле Результат.

3. Связывает с кнопками Вычислить и Закрыть, а также с переключателями всплывающие подсказки

Поделиться:
Популярные книги

Егерь. Сердце стаи. Книга 5

Скиба Николай
5. Зверолов
Фантастика:
рпг
фэнтези
фантастика: прочее
попаданцы
6.80
рейтинг книги
Егерь. Сердце стаи. Книга 5

Я еще царь. Книга XXX

Дрейк Сириус
30. Дорогой барон!
Фантастика:
юмористическое фэнтези
аниме
попаданцы
5.75
рейтинг книги
Я еще царь. Книга XXX

Черный Маг Императора 5

Герда Александр
5. Черный маг императора
Фантастика:
юмористическое фэнтези
попаданцы
аниме
5.00
рейтинг книги
Черный Маг Императора 5

Кодекс Охотника. Книга XXIII

Винокуров Юрий
23. Кодекс Охотника
Фантастика:
боевая фантастика
попаданцы
5.00
рейтинг книги
Кодекс Охотника. Книга XXIII

Экспансия – I

Семенов Юлиан Семенович
10. Штирлиц
Детективы:
политические детективы
6.33
рейтинг книги
Экспансия – I

Кодекс Охотника. Книга XVII

Винокуров Юрий
17. Кодекс Охотника
Фантастика:
фэнтези
попаданцы
аниме
5.00
рейтинг книги
Кодекс Охотника. Книга XVII

Князь Андер Арес 5

Грехов Тимофей
5. Андер Арес
Фантастика:
историческое фэнтези
фэнтези
героическая фантастика
5.00
рейтинг книги
Князь Андер Арес 5

Марфа-посадница

Балашов Дмитрий Михайлович
Проза:
историческая проза
7.33
рейтинг книги
Марфа-посадница

Практик

Листратов Валерий
5. Ушедший Род
Фантастика:
аниме
фэнтези
попаданцы
5.00
рейтинг книги
Практик

Наследник старого рода

Шелег Дмитрий Витальевич
1. Живой лёд
Фантастика:
фэнтези
8.19
рейтинг книги
Наследник старого рода

Низший - Инфериор. Компиляция. Книги 1-19

Михайлов Дем Алексеевич
Фантастика 2023. Компиляция
Фантастика:
боевая фантастика
5.00
рейтинг книги
Низший - Инфериор. Компиляция. Книги 1-19

Эпоха Опустошителя. Том IX

Павлов Вел
9. Вечное Ристалище
Фантастика:
аниме
фэнтези
попаданцы
5.00
рейтинг книги
Эпоха Опустошителя. Том IX

Наемный корпус

Вайс Александр
5. Фронтир
Фантастика:
боевая фантастика
космическая фантастика
космоопера
5.00
рейтинг книги
Наемный корпус

Н - 7

Ильин Владимир Алексеевич
7. Напряжение
Фантастика:
фэнтези
героическая фантастика
городское фэнтези
5.00
рейтинг книги
Н - 7