Активация, деактивация событий
Событие Activate возникает, когда объект становится активным окном. Событие Деактивация возникает, когда объект больше не является активным окном.
Синтаксис
Частныйобъект Sub_Activate( )
Частныйобъект Sub_Deactivate( )
Заполнитель объекта представляет выражение объекта , которое вычисляет объект в списке "Область применения ".
Замечания
Объект может стать активным с помощью метода Show в коде.
Событие Activate может возникать только в том случае, если объект виден. Пользовательская форма, загруженная с помощью load, не отображается, если вы не используете метод Show.
События Активация и Деактивация происходят только при перемещении фокуса в приложении. Так, ни одно из этих событий не срабатывает при переходе к объекту (или из объекта) другого приложения.
Событие Деактивация не возникает при выгрузке объекта.
Пример
В приведенном ниже коде обрабатываются две формы UserForm: UserForm1 и UserForm2. Скопируйте эти процедуры в модуль UserForm1 и добавьте UserForm2. Заголовок UserForm1 создается в процедуре события Activate . Когда пользователь щелкает клиентскую область UserForm1, загружается UserForm2 и отображается активация события деактивации UserForm1, изменяя его субтитры.
' Activate event for UserForm1
Private Sub UserForm_Activate()
UserForm1.Caption = "Click my client area"
End Sub
' Click event for UserForm1
Private Sub UserForm_Click()
Load UserForm2
UserForm2.StartUpPosition = 3
UserForm2.Show
End Sub
' Deactivate event for UserForm1
Private Sub UserForm_Deactivate()
UserForm1.Caption = "I just lost the focus!"
UserForm2.Caption = "Focus just left UserForm1 and came to me"
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по