KeyAscii [Résolu]

Signaler
Messages postés
863
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
-
cs_Jack
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Salut !

Dans mon formulaire, j'ai plusieurs objet dont les TextBox, MaskEdBox et autres...
Ils ont tous un TabIndex précis de 0 à X
Je souhaiterais coder une ligne dans un module pour que lorsque je tape sur la touche Entrée (KeyAscii = 13) la tabulation se fait automatiquement.

Pouvez-vous m'aider svp ?

Merci

----------
OS : Windows XP SP3 et Vista 32
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !

5 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
63
Salut
Exemple :
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0    ' pour éviter le Bip
        SendKeys "{TAB}", True
    End If
End Sub

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
863
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015

Merci Jack, voilà à quoi je me suis retrouvé :

If KeyAscii = 13 then SendKeys "{TAB}", True
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
63
Oui, c'est la même sauf que :
- le lecteur verra 13 au lieu de vbKeyReturn qui est plus explicite
- que ton programme doit émettre un bip lors de l'utilisation de la touche Entrée
Messages postés
863
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015

Oui mais avec vbKeyReturn, il m'envois à chaque fois que je tape une lettre ou une touche du clavier à une nouvelle tabulation... est-ce normal au lieu qu'il prennes en compte le 13 ?
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
63
vbKeyReturn n'est qu'une constante du langage : elle vaut 13
C'est strictement la même chose