logo
Конспект лекций по КИТ

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

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

Шаг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 Диалоговое окно Песнь о воробушке и бабочке