Propriété TakeFocusOnClick – Exemple

L’exemple suivant utilise la propriété TakeFocusOnClick pour contrôler si un CommandButton reçoit le focus lorsque l’utilisateur clique dessus.

L'utilisateur clique sur un contrôle autre que CommandButton1, puis clique sur CommandButton1. Si la propriété TakeFocusOnClick a la valeur True, CommandButton1 reçoit le focus après que l'utilisateur a cliqué dessus. L’utilisateur peut modifier la valeur de TakeFocusOnClick en cliquant sur toggleButton.

Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :

• un contrôle CommandButton nommé CommandButton1 ;
• un contrôle ToggleButton nommé ToggleButton1 ;
• Un ou deux autres contrôles, tels que OptionButton ou ListBox.

Private Sub CommandButton1_Click() 
 MsgBox "Watch CommandButton1 to see if it " _ 
 & "takes the focus." 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1 = True Then 
 CommandButton1.TakeFocusOnClick = True 
 ToggleButton1.Caption = "TakeFocusOnClick On" 
 Else 
 CommandButton1.TakeFocusOnClick = False 
 ToggleButton1.Caption = "TakeFocusOnClick Off" 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 CommandButton1.Caption = "Show Message" 
 
 ToggleButton1.Caption = "TakeFocusOnClick On" 
 ToggleButton1.Value = True 
 ToggleButton1.Width = 90 
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.