Обсудим процесс создания пользовательской формы на примере конструирования простейшего диалогового окна.
Шаг1
Выберите команду Сервис, Макрос, Редактор Visual Basic (Tools, Macro, Visual Basic) для того, чтобы перейти в редактор Visual Basic. |
Шаг 2
Выберите команду Вставить User Form (Insert UserForm). В редакторе Visual Basic появятся:
-Окно с пользовательской формой
-Панель инструментов Панель элементов (Toolbox) (рис. ).
Рис.7.1 Окно редактора Visual Basic с пользовательской формой и панелью элементов
ШагЗ
Используя диалоговое окно Свойства (Properties), отображаемое нажатием кнопки и Панель элементов (Toolbox), создайте из пользовательской формы диалоговое окно, показанное на рис. Это окно состоит из трех кнопок и одного поля. Свойство Caption пользовательской формы определите равным Песнь о воробушке и бабочке, а кнопок — равными Первый акт, Второй акт и Третий акт.
Шаг 4
Для того чтобы написать процедуру обработки события нажатия кнопки Первый акт, дважды щелкните ее. Активизируется модуль UserForm1, в который введите процедуру:
Private Sub CommandButton1 Click ()
TextBox1.Text = "Воробышек за бабочкой прыг-прыг-прыг"
End Sub
Для обработки событий нажатий кнопок Второй акт и Третий акт в модуле UserForm1 введите следующие две процедуры:
Private Sub ConmmandButton2 Click "()
TextBoxl.Text = "Воробышек за бабочкой скок-скок-скок"
End Sub
Private Sub CommandButton3 Click()
TextBoxl.Text = "Воробышек бабочку ням-ням-ням"
End Sub
Шаг 5
Процесс создания диалогового окна и процедур, связанньк с ним, завершен. Для того чтобы проверить, как работает созданная программа, нажмите кнопку Запуск подпрограммы/UserForm (Run) . На экране на фоне рабочего листа отобразится диалоговое окно Песнь о воробушке и бабочке. Для проверки функционирования кнопок нажмите, например, кнопку Первый акт. В поле выведется сообщение Воробышекза бабочкой прыг-прыг-прыг (рис. ). Для закрытия диалогового окна Песнь о воробушке и бабочке нажмите системную кнопку, расположенную в верхней правой части строки заголовка диалогового окна.
Рис.7.2Редактор Visual Basic с преобразованной пользовательской формой для создаваемого приложения
Рис.7.3 Диалоговое окно Песнь о воробушке и бабочке