Detecter les tabulations(dans des textbox par exemple)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 477 fois - Téléchargée 46 fois
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
/!\ Important, ca marchera pas tant que tout les controle n'auront pas la propriété 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
- Detecter les tabulations(dans des textbox par exemple)
- Detection du Texte d'une TextBox ✓ - Forum - VB.NET
- Recuperer valeur d'une liste pour un textbox (par exemple) ✓ - Forum - VB.NET
- Textbox date. gestion automatisée d'un champ "date". version ocx ( la source, l'ocx et exemple ) - Codes sources - Visual Basic / VB.NET (Date & Heure)
- Détecter si un textbox est rempli ✓ - Forum - VB.NET
- Changement de couleur TextBox ou Command_Button à la tabulation ✓ - Forum - Visual Basic 6
7 oct. 2002 à 11:13
merci
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.