Проектирование пользовательских форм для ввода-вывода информации

 

Пользовательская форма представляет собой любое диалоговое окно, аналогичное диалоговому окну в операционной системе Windows и предназначена для ввода-вывода информации. Создаются самостоятельно, могут иметь произвольный вид и содержать различные элементы управления, упрощающие ввод или более наглядно представляющие результаты. Основные элементы управления перечислены в табл. 9

Таблица 9

Основные элементы управления, добавляемые в форму

Элемент управления	Программное имя	Описание
Поле	TextBox	Отображает данные и используется для ввода информации
Надпись	Label	Отображает неизменяемый текст в формах
Флажок	CheckBox	Позволяет задать значения «Истина» или «Ложь»
Поле со списком	ComboBox	Используется для выбора нужного значения или для ввода значения в поле
Список	ListBox	Список возможных значений
Счетчик	SpinButton	Используется для ввода числовых значений
Линейка прокрутки	ScrollBar	Используется для ввода числовых значений из большого диапазона значений
Переключатель (опция)	OptionButton	Используется для предоставления выбора одного варианта значений из многих
Страница	MultiPage	Создает несколько страниц в одной форме
Кнопка	CommandButton	Создает кнопку, при нажатии на которую выполняется команда

 

 

Тема 4.1

Использование формы в процедуре Auto_Open

Существуют некоторые процедуры, автоматически выполняющиеся при наступлении какого-либо события.

Процедура Auto_Open автоматически загружается в момент открытия книги, поэтому, как правило, содержит команды настройки Excel, запросы пароля, устанавливаемого пользователем. Процедура Auto_Close выполняется при закрытии книги, включает в себя команды сохранения, резервного копирования, восстановления первоначальных настроек приложения.

В представленной ниже процедуре происходит запрос пароля пользователя. В случае правильно введенного пароля активизируется форма приветствия, отображающая текущую дату, в противном случае приложение закрывается.

На рис. 3 представлена форма, содержащая две надписи, значение первой из которых вводится при проектировании формы, и кнопка.

Рис. 3

 

Sub auto_open() ‘начало стандартной процедуры

Parol = InputBox("Введите пароль", "Ввод") ’ввод пароля

If Parol=”Boss” Then ‘если введен правильный пароль «Boss»

With UserForm1 ‘действия с объектами формы

.Label2 = "Сегодня - " & Date ‘формируется вторая надпись для отображения текущей даты

.Show ‘активизируется форма

End With ‘заканчиваются действия с формой и ее объектами

Else ‘иначе, если введен неверный пароль

Application.Quit ‘закрытие приложения Excel

End If

End Sub ‘конец процедуры

 

Процедура, закрепленная за кнопкой ОК формы

 

Private Sub CommandButton1_Click()

UserForm1.Hide

End Sub

 

Задание № 8. Создать автоматически загружаемую в момент открытия книги процедуру согласно заданию табл. 10.

 

 

Таблица 10

Процедура Auto_Open

Вариант	Задание
	Ввод с клавиатуры имени пользователя и пароля. Если пароль верен – в форме вывести «Здравствуйте, <имя>!», в противном случае закрыть книгу.
	Ввод с клавиатуры имени пользователя. Проверить, если данное имя имеется в списке зарегистрированных пользователей, в форме вывести приветствие, содержащее имя пользователя.
	Ввод пароля и имени. Если пароль верный, имя – одно из зарегистрированных, открыть книгу, в противном случае вывести сообщение об отказе в доступе.
	Ввод с клавиатуры пароля. Если длина пароля соответствует установленной и в нем встречается заранее известный символ, вывести форму с приветствием, содержащую текущие месяц и год.
	Ввод с клавиатуры в форму имени пользователя и пароля. Если имя и пароль совпадают, книгу активизировать, в противном случае книгу закрыть.
	Ввод с клавиатуры имени пользователя и пароля. Если пароль неверен, а также при верном пароле и дне, приходящимся на субботу или воскресенье, вывести форму с отказом в доступе, текущей датой и днем недели.
	Ввод с клавиатуры имени пользователя и даты его рождения. Если возраст пользователя меньше 18 лет, вывести в форме сообщение «<Имя>, доступ отказан» и книгу закрыть.
	Ввод с клавиатуры имени пользователя и текущей даты. Если день – будний, в форме вывести «Привет,<имя>!», в противном случае – «В выходные надо отдыхать!»
	Ввод с клавиатуры пароля. В этой же форме, если пароль верный, отразить приветствие, в противном случае – отказ в доступе, приложение закрыть.
	Ввод с клавиатуры имени пользователя и даты рождения. В форме отразить приветствие с указанием дня недели даты рождения и символьного представления месяца. Например, «Привет, Вы родились в понедельник, месяц – Март»

 

Тема 4.2