共用方式為


啟動、停用事件

Activate 事件會在對象變成活動窗口時發生。 當物件不再是活動視窗時,就會發生 Deactivate 事件。

語法

Private Sub物件_Activate ( )
Private Sub物件_Deactivate ( )

物件佔位元代表評估為 [套用至] 列表中對象的物件表達式。

註解

在程式代碼中使用 Show 方法,即可讓物件變成作用中。

只有當對象可見時,才會發生 Activate 事件。 除非您使用 Show 方法,否則無法看見載入 LoadUserForm

只有當您在應用程式內移動焦點時,才會發生 Activate 和Deactivate 事件。 將焦點移入或移出另一個應用程式中的物件,並不會觸發任一事件。

卸除物件時不會發生 Deactivate 事件。

範例

下列程式代碼使用兩個 UserForms:UserForm1 和 UserForm2。 將這些程式複製到 UserForm1 模組,然後新增 UserForm2。 UserForm1 的 標題 會在其 Activate 事件過程中建立。 當使用者按兩下 UserForm1 的用戶端區域時,會載入 UserForm2 並顯示觸發 UserForm1 的 Deactivate 事件,並變更其標題。

' 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 支援與意見反應