Événements Enter, Exit, propriété ActiveControl – Exemple
L’exemple suivant utilise la propriété ActiveControl dans une sous-routine qui effectue le suivi des contrôles visités par un utilisateur. L’événement Enter de chaque contrôle appelle la sous-routine TraceFocus pour identifier le contrôle qui a le focus.
Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient les contrôles suivants :
- Une barre de défilement nommée ScrollBar1.
- ListBox nommé ListBox1.
- Deux contrôles OptionButton nommés OptionButton1 et OptionButton2.
- Frame nommé Frame1.
Dim MyControl As Control
Private Sub TraceFocus()
ListBox1.AddItem ActiveControl.Name
ListBox1.List(ListBox1.ListCount - 1, 1) = _
ActiveControl.TabIndex
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.AddItem "Controls Visited"
ListBox1.List(0, 1) = "Control Index"
End Sub
Private Sub Frame1_Enter()
TraceFocus
End Sub
Private Sub ListBox1_Enter()
TraceFocus
End Sub
Private Sub OptionButton1_Enter()
TraceFocus
End Sub
Private Sub OptionButton2_Enter()
TraceFocus
End Sub
Private Sub ScrollBar1_Enter()
TraceFocus
End Sub
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour