Propriété TabStop – Exemple

L’exemple suivant utilise la propriété TabStop pour contrôler si un utilisateur peut appuyer sur Tab pour déplacer le focus sur un contrôle particulier. 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 TabStop a lavaleur False, CommandButton1 ne reçoit pas le focus à l’aide de Tab.

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

• 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 "Clicked CommandButton1." 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1 = True Then 
 CommandButton1.TabStop = True 
 ToggleButton1.Caption = "TabStop On" 
 Else 
 CommandButton1.TabStop = False 
 ToggleButton1.Caption = "TabStop Off" 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 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.