Partager via

Spécifier la prise en charge des onglets pour un contrôle

  • Article

L’exemple suivant emploie la propriété TabStop pour déterminer si un utilisateur peut appuyer sur la touche Tab afin de déplacer le focus vers un contrôle particulier. La propriété TabIndex est une propriété Microsoft Forms 2.0 qui s’applique à chaque contrôle prenant en charge les tabulations. L’utilisateur appuie sur Tab pour déplacer le focus entre les contrôles du formulaire, puis clique sur toggleButton pour modifier TabStop pour CommandButton1. Lorsque la propriété TabStop a la valeur False, CommandButton1 ne reçoit pas le focus lorsque l’utilisateur appuie sur Tab.

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 :

Sub CommandButton1_Click() 
 MsgBox "Clicked CommandButton1." 
End Sub 
 
Sub ToggleButton1_Click() 
 Dim CommandButton1 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1") 
 
 If ToggleButton1 = True Then 
 CommandButton1.TabStop = True 
 ToggleButton1.Caption = "TabStop On" 
 Else 
 CommandButton1.TabStop = False 
 ToggleButton1.Caption = "TabStop 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 = "TabStop 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.