Événements Activate, Deactivate

Article
10/25/2024

L’événement Activate se produit lorsqu’un objet devient la fenêtre active. L’événement Deactivate se produit lorsqu’un objet n’est plus la fenêtre active.

Syntaxe

Private Subobject_Activate( )
Private Subobject_Deactivate( )

L’espace réservé d’objet représente une expression d’objet qui prend la valeur d’un objet dans la liste S’applique à.

Remarques

Un objet peut devenir actif à l’aide de la méthode Show dans le code.

L’événement Activate ne peut se produire que lorsqu’un objet est visible. Un UserForm chargé avec Load n’est visible que si vous utilisez la méthode Show .

Les événements Activate et Deactivate se produisent uniquement lorsque vous déplacez le focus dans une application. Le déplacement du focus vers ou depuis un objet dans une autre application ne déclenche pas ces événements.

L’événement Deactivate ne se produit pas lors du déchargement d’un objet.

Exemple

Ce code utilise deux objets UserForm : UserForm1 et UserForm2. Copiez ces procédures dans le module UserForm1, puis ajoutez UserForm2. La légende de UserForm1 est créée dans sa procédure événementielle Activate. Lorsque l’utilisateur clique sur la zone cliente de UserForm1, UserForm2 est chargé et s’affiche, déclenchant l’événement Deactivate de UserForm1, en modifiant ses sous-titres.

' 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

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via