В правой верхней части модуля кода находится раскрывающийся список с именами событий, связанных с данным объектом

Код обработки события записывается на листе модуля.

End Sub

End Sub

Запишем отклик на событие Click

End Sub

Примеры. Рассмотрим несколько простых примеров использования свойств и методов формы с помощью процедур обработки событий.

Начнем с события Click, т.к. процедуру обработки этого события легче всего создать: достаточно дважды щелкнуть на форме в режиме разработки. В программном коде формы будет предоставлен шаблон прорцедуры обработки события Click на форме.

Private Sub UserForm_Click()

Private Sub UserForm_Click()

MsgBox "Событие Click",, "Первая форма"

Затем в поле обработчика события формы вызовем обработчик события Activa t e, и напишем отклик на обработчик события

Private Sub UserForm_Activate()

UserForm1.Caption = "Привет первая форма"

UserForm1.Height = 300

UserForm1.Width = 450

MsgBox "Событие Activate"

Итак наиболее часто используемые методы объекта UserForm.

Метод	Назначение
Show	Отображает форму на экране
Hide	Закрывает форму
Move	Изменяет положение и размер формы
PrintForm	Печатает изображение формы

19.1.6 Событие – это то, что может произойти с диалоговым окном (UserForm) или элементом управления

После установки свойств элемента управления или формы переходят к написанию кода, связанного с ними. Особое место в этом коде занимают процедуры обработки событий. У каждого элемента управления есть целый набор событий, обрабатывающих те или иные действия. Приведем некоторые из них:

Событие	Действие
Click	Щелчок
DblClick	Двойной щелчок

В левой верхней части модуля кода находится раскрывающийся список с именами объектов, для которых в данном модуле создаются процедуры обработки событий. В этом списке также представлен раздел модуля Общая часть ( General), где описываются переменные и константы уровня модуля.

Составим процедуру обработки события click так, чтобы щелчок по форме отображало на экране диалоговое окно, уведомляющее пользователя о случившемся действии

Private Sub UserForm_Click()

UserForm1.Caption = "Привет"

MsgBox "Ты нажал на меня"

Дата добавления: 2014-01-05