В правой верхней части модуля кода находится раскрывающийся список с именами событий, связанных с данным объектом.
Код обработки события записывается на листе модуля.
End Sub
End Sub
Запишем отклик на событие Click
End Sub
Примеры. Рассмотрим несколько простых примеров использования свойств и методов формы с помощью процедур обработки событий.
Начнем с события Click, т.к. процедуру обработки этого события легче всего создать: достаточно дважды щелкнуть на форме в режиме разработки. В программном коде формы будет предоставлен шаблон прорцедуры обработки события Click на форме.
Private Sub UserForm_Click()
Private Sub UserForm_Click()
MsgBox "Событие Click", , "Первая форма"
Затем в поле обработчика события формы вызовем обработчик события Activate, и напишем отклик на обработчик события
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 "Ты нажал на меня"