Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 318 fois - Téléchargée 44 fois
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
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.