Самоучитель VBA
       

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


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

Шаг 1

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

Шаг 2

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

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

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

    		•

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

    ШагЗ

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

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

    UserForml, в который введите Процедуру:

    Private Sub CommandButtonl Click ()

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

    End Sub

    для Обработки событий Нажатий кнопок

    Второй акт и Третий акт в модуле UserForml введите следующие две процедуры:

    Private Sub CommandButton2 Click () TextBoxl .Text = "Воробышек за бабочкой скок-скок-скок"

    End Sub

    Private Sub CommandButton3 Click () TextBoxl . Text = "Воробышек бабочку ням-ням-ням"

    End Sub

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

    Рис. 7.7. Редактор Visual Basic с преобразованной пользовательской формой для создаваемого приложения

    Рис. 7.8. Диалоговое окно Песнь о воробушке и бабочке



    Содержание раздела