Ereignisse aktivieren, deaktivieren

Artikel
10/16/2024

Das Activate-Ereignis tritt auf, wenn ein Objekt zum aktiven Fenster wird. Das Deactivate-Ereignis tritt auf, wenn ein Objekt nicht mehr das aktive Fenster ist.

Syntax

PrivateSub-Objekt_Activate( )
PrivateSub-Objekt_Deactivate( )

Der Platzhalter Objekt steht für einen Objektausdruck, der zu einem Objekt in der Liste Gilt für ausgewertet wird.

Hinweise

Ein Objekt kann mithilfe der Show-Methode im Code aktiv werden.

Das Activate-Ereignis kann nur auftreten, wenn ein Objekt sichtbar ist. Ein mit Load geladenes UserForm-Formular ist nur sichtbar, wenn Sie die Show-Methode verwenden.

Die Ereignisse Activate und Deactivate treten nur auf, wenn Sie den Fokus innerhalb einer Anwendung verschieben. Das Verschieben des Fokus zu oder von einem Objekt in einer anderen Anwendung löst kein Ereignis aus.

Das Deactivate-Ereignis tritt beim Entladen eines Objekts nicht auf.

Beispiel

Der folgende Code verwendet zwei UserForms: UserForm1 und UserForm2. Kopieren Sie diese Prozeduren in das UserForm1-Modul, und fügen Sie dann UserForm2 hinzu. Die Untertitel von UserForm1 wird in seiner Activate-Ereignisprozedur erstellt. Wenn der Benutzer auf den Clientbereich von UserForm1 klickt, wird UserForm2 geladen und angezeigt, wodurch das Deactivate-Ereignis von UserForm1 ausgelöst und dessen Beschriftungen geändert werden.

' 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

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über