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


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

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 "Ты нажал на меня"