Создание пользовательской формы

Обсудим процесс создания пользовательской формы на примере конструирования простейшего диалогового окна.

Шаг 1 Выберите команду Сервис, Макрос, Редактор Visual Basic (Tools, Macro, Visual Basic) для того, чтобы перейти в редактор Visual Basic.

Шаг 2 Выберите команду Вставить User Form (Insert UserForm). В редакторе Visual Basic появятся:

– Окно с пользовательской формой;

– Панель инструментов Панель элементов (Toolbox) (рис. 2.6).

Шаг З Используя диалоговое окно Свойства (Properties), отображаемое нажатием кнопки и Панель элементов (Toolbox), создайте из пользовательской формы диалоговое окно, показанное на рисунке 2.7. Это окно состоит из трех кнопок и одного поля. Свойство Caption пользовательской формы определите равным Песнь о воробушке и бабочке, а кнопок – равными Первый акт, Второй акт и Третий акт.

Шаг 4 Для того чтобы написать процедуру обработки события нажатия кнопки Первый акт, дважды щелкните ее. Активизируется модуль UserForm1, в который введите процедуру:

Private Sub CommandButton1_Click ()

TextBox1.Text = "Воробышек за бабочкой прыг-прыг-прыг"

End Sub

Рисунок 2.6 Окно редактора Visual Basic с пользовательской формой и панелью элементов

Для обработки событий нажатий кнопок Второй акт и Третий акт в модуле UserForm1 введите следующие две процедуры:

Private Sub ConmmandButton2_Click ()

TextBoxl.Text = "Воробышек за бабочкой скок-скок-скок"

End Sub

Private Sub CommandButton3 Click()

TextBoxl.Text = "Воробышек бабочку ням-ням-ням"

End Sub

Шаг 5 Процесс создания диалогового окна и процедур, связанньк с ним, завершен. Для того чтобы проверить, как работает созданная программа, нажмите кнопку Запуск подпрограммы/UserForm (Run). На экране на фоне рабочего листа отобразится диалоговое окно Песнь о воробушке и бабочке. Для проверки функционирования кнопок нажмите, например, кнопку Первый акт. В поле выведется сообщение Воробышек за бабочкой прыг-прыг-прыг (рис. 2.7). Для закрытия диалогового окна Песнь о воробушке и бабочке нажмите системную кнопку, расположенную в верхней правой части строки заголовка диалогового окна.