Detecter les tabulations(dans des textbox par exemple)

Commenter

Contenu du snippet

Par defaut quand vous appuyez sur la touche tabulation ca selectionne les controle 1 par 1 et vous ne pouvez associer aucun code, la solution est de desactiver pour tout les controle le TabStop (donc tabstop = false)

A partir de la vous pouvez lancer un code mais le probleme c'est que ca selectionne plus les autres controles et en plus sa fait un son "Ding"

Je vous conseil alors de creer des index (selectionner le textbox) faites copier puis coller, on vous demandera alors si vous voulez faire un index cliquez alors sur oui.

La propriété Index determinera de quel controle il s'agit etde l'ordre des tabulation que l'on va effectuer

Source / Exemple : 


Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) ' keyascii contient le numero de la touche, ici 9 correspond a la touche tabulation

'Inserrer ici ce que vous voulez effectuer comme travaux par exemple si l'on appuie sur enter(keyascii = 13) que par exemple ca affiche un message

' a partir d'ici on va s'occuper des selections et de desactiver le sons "Ding"
If KeyAscii = 9 Then 'si on appuie sur tab alors ...
If Index = Text1.Count - 1 Then 'si c'est le dernier controle alors ... (on retire 1 car index part de 0)
Text1(0).SetFocus 'on selectionne le premier controle (l'index du premier controle c'est 0 )
Else 'si c'est pas le dernier controle (literalement sinon)
'il faut passer au champ suivant :
Text1(Index+1).SetFocus
End If 'fin de la condition du test du numero de control
KeyAscii = 0 ' cette ligne sert à desactiver le son "Ding", ne rien mettre en dessous de cette ligne vu qu'en dessous on ne sait pas quel touche l'utilisateur a appuyé
End If 'fin de la condition du test de la touche appuyé
End Sub 'fin de la procedure

Conclusion :


/!\ Important, ca marchera pas tant que tout les controle n'auront pas la propriété TabStop à False /!\

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_cumu)