Partager via

Autoriser un bouton de commande à prendre le focus en cliquant dessus

  • Article

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-en le code vers l’éditeur de script d’un formulaire. Pour exécuter le code, vous devez ouvrir le formulaire afin d’activer l’événement Open. 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.

Sub CommandButton1_Click() 
 MsgBox "Watch CommandButton1 to see if it takes the focus." 
End Sub 
 
Sub ToggleButton1_Click() 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1") 
 
 If ToggleButton1 = True Then 
 CommandButton1.TakeFocusOnClick = True 
 ToggleButton1.Caption = "TakeFocusOnClick On" 
 Else 
 CommandButton1.TakeFocusOnClick = False 
 ToggleButton1.Caption = "TakeFocusOnClick Off" 
 End If 
End Sub 
 
Sub Item_Open() 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1") 
 
 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.