KeyAsciiRésolu

Question

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 !

cs_Jack · Accepted Answer

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)

Sinsitrus · Answer

Merci Jack, voilà à quoi je me suis retrouvé :

If KeyAscii = 13 then SendKeys "{TAB}", True

cs_Jack · Answer

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

Sinsitrus · Answer

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 ?

cs_Jack · Answer

vbKeyReturn n'est qu'une constante du langage : elle vaut 13
C'est strictement la même chose

KeyAscii

5 réponses

Votre réponse

Discussions similaires