Создание формы (UserForm) и добавление кнопок (СоmmandButton)

Создадим форму с двумя кнопками, как показано на Рис. 10‑1, и напишем программу, которая бы сообщала, какую кнопку нажал пользователь.

Рис. 10‑1. Форма с командными кнопками

Сначала создадим форму:

1. Чтобы вставить форму в проект воспользуйтесь командой Insert/UserForm (Рис. 10‑2).

Рис. 10‑2. Вставка формы

В результате выполнения данной команды (Рис. 10‑3) на экране появится форма и панель Элементы управления (ControlsТооlBох):

Рис. 10‑3. Новая форма и панель элементов управления

В Окне свойств (Рис. 10‑4) задайте имя формы (свойство Name – frmКомандныеКнопки) и заголовок (свойство Caption – Командные кнопки). В результате у Вас получится форма как на Рис. 10‑5.

Рис. 10‑4. Окно свойств формы

Рис. 10‑5

ВНИМАНИЕ! При именовании форм и элементов управления пользуйтесь соглашением об именах, называемое венгерской нотацией. Суть соглашения состоит в том, что имя объекта начинается с префикса, который определяет вид этого объекта. Далее следует собственно имя объекта, которое отображает его суть. В таблице 1 приведены префиксы и примеры имен для элементов управления.

Таблица 1

Элемент управления	Префикс	Пример имени
TextBox	Поле	txt	txtФамилия
Label	Надпись	lbl	lblИнформ
CommandBar	Кнопка	cmd	cmdОК
ListBox	Список	lst	lstСтуденты
ComboBox	Поле со списком	cbo	cboФакультеты
ScrollBar	Полоса прокрутки	scr	scrВниз
SpinButton	Счетчик	spn	spnВыбор
OptionButton	Переключатель	opt	optВыбор
CheckBox	Флажок	chk	chkПол
ToggleButton	Выключатель	tgl	tglПереключатель
Frame	Рамка	fra	fraСтатус
Image	Рисунок	img	imgСпутник
MultiPage	Набор страниц	mlt	mltСтраницы
TabStrip	Набор вкладок	tab	tabДва
UserForm	Форма	frm	frmСессия

2. Чтобы добавить в форму кнопку щелкните по значку , расположенному на панели элементов управления, и очертите мышкой контуры кнопки. Форма с кнопкой будет выглядеть примерно так:

Размеры формы и кнопок, их месторасположение в любой момент можно исправить (либо перетаскивая размерные маркеры, либо сам элемент). Чтобы удалить ненужный элемент управления щелкните по нему мышкой и нажмите клавишу [Delete].

3. В окне свойств кнопки CommandButton измените её имя (cmdOK), надпись (ОК), шрифт надписи (Tahoma, 9 пунктов, жирный) и свяжите её с клавишей [Enter] (Рис. 10‑6). В результате Ваша форма будет иметь вид (Рис. 10‑7):

Рис. 10‑6. Окно свойств кнопки CommandButton

Рис. 10‑7.Форма с кнопкой

4. Аналогично добавьте кнопку Отмена, связав её с кнопкой [Escape] (для этого в окне её свойств для свойства Cancel установите True).

5. Измените размеры формы, сделайте кнопки одного размера и расположите их симметрично. Помните: Ваша форма должна быть аккуратной, удобной и строгой, а все её элементы - соразмерными. Чтобы посмотреть, как форма будет выглядеть на экране, нажмите кнопку [F4]. Чтобы убрать форму с экрана, щелкните по кнопке Закрыть.

Замечания:

§ В окне свойств прописываются те свойства, которыми форма будет обладать при вызове её на экран. В процессе выполнения программы свойства формы и расположенных на ней элементов управления могут меняться. Классический пример - недоступность какого-то элемента управления (например, кнопки ОК) до тех пор, пока пользователь не введет/выберет все значения, которые он должен указать в форме.

§ Свойства формы и элементов управления можно задавать в процедуре инициализации формы. Пропишем, например, программными средствами некоторые свойства формы frmКомандныеКнопки: определим заголовок формы – Командные кнопки, кнопку ОК свяжем с клавишей [Enter], а кнопку Отмена – с клавишей [Escape]. Для этого дважды щелкните по форме (на экране появится пустая процедура
Private SubUserForm_Click()), в списке процедур выберите процедуру
Initialize, а затем введите код:

Private Sub UserForm_Initialize()

Caption = "Командные кнопки"

cmdOK.Default = True

cmdОтмена.Cancel = True

End Sub

Эту же программу можно было бы поместить в любой модуль с произвольным именем:

Sub КомандныеКнопки()

frmКомандныеКнопки.Caption = "Командные кнопки"

frmКомандныеКнопки.cmdOK.Default = True

frmКомандныеКнопки.cmdОтмена.Cancel = True

frmКомандныеКнопки.Show

End Sub

Сравните ссылки на одни и те же объекты в этих двух программах!

6. Теперь «скажем», что должно происходить, если пользователь щелкнет по кнопке ОК. Для этого дважды щелкните в форме по кнопке ОК – на экране появится пустая процедура Private Sub cmdOK_Click()(событие – щелчок по кнопке ОК)

7. Введите в ней следующий код:

Private Sub cmdOK_Click()

MsgBox "Вы нажали на кнопку ОК!", vbInfomation, _

"Нажатая кнопка"

Unload Me

End Sub

8. Аналогично создайте процедуру обработки события «Щелчок по кнопке Отмена»:

Private Sub cmdОтмена_Click()

MsgBox "Вы нажали на кнопку Отмена!", vbInfomation, _

"Нажатая кнопка"

Unload Me

End Sub

Осталось теперь запустить созданное приложение и протестировать его работу.