Récuperer code Ascii d'une entées clavier

Question

Salut &#224; tous,

Je souhaiterais savoir comment on r&#233;cupere le code ascii que l'utilisateur saisi 
au clavier.
Par exemple pour la proc&#233;dure

Private Sub TextBoxCodePostal_KeyPress(KeyAscii As Integer)

Que dois je faire pour r&#233;cup&#233;rer la valeur &#224; donner &#224; KeyAscii ??
 
Merci d'avance,

Cletou

Starec · Answer

Exemple :

Si l'utilisateur doit taper sur la touche Return, pour valider la saisie, ton code devient :

Private Sub TextBoxCodePostal_KeyPress(KeyAscii As Integer)

     if keyascii = vbKeyreturn then
         +++++
     else
          +++++
     end if
end sub

Cherche les constantes dans l'aide tape KeyPress, il te dira toutes les constantes

Starec

crenaud76 · Answer

Starec < vbKeyReturn n'est pas un code Ascii !! C'est un code de touche !!!! IL est utilisable conjointement avec le param&#232;tre KeyCode des evt KeyDown et KeyUp !!!
Les code ascii sont simple &#224; obtenir : Asc("A") pour un A majuscule par exemple. Pour le retour chariot, c'est vbCR, etc ...

Christophe R

cletou · Answer

Merci christophe,
 
je me suis peut &#234;tre mal exprim&#233; je cherche simplement 
&#224; r&#233;cup&#233;rer le code Ascii de la touche saisie par
l'utilisateur afin de v&#233;rifier, dans le cas pr&#233;sent pour un 
code postal, s'il s'agit bien d'un chiffre :

If KeyAscii < 48 Or KeyAscii > 57 Then
    error ......
End if

merci,

cletou

Starec · Answer

Exact, j'ai mal saisi, si tu veux contr&#244;ler ce qui est saisi tu peux obliger l'utilisateur &#224; ne saisir que des chiffres (voir l'emple ci dessous qui se trouve dans le forum et les sources avec plein d'autre tape "Validation Saisie", et de plus je crois qu'en mettant la propri&#233;t&#233; de ta textbox Maxlenght &#224; 5, tu ne peux saisir plus de 5 chiffres comme un code postal

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not Chr(KeyAscii) Like "[0123456789]" Then KeyAscii = 0
End Sub

Starec

crenaud76 · Answer

Le test direct sur le Keyascii est tout aussi judicieux, m&#234;me plus ...
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <48 Or KeyAscii > 57 then
  KeyAscii = 0
  ' Mettre &#233;ventuellement un msg d'erreur si tu le veux i&#231;i.
Endif
End Sub

Tu peux aussi remplacer ta textbox par une MaskedEditBox et jouer sur sa propri&#233;t&#233; Mask 

Christophe R

EMSIEN · Answer

Pour ma part je te sugg&#232;re dans le cas ou tu veux tester si c'est des num&#233;ros d'utiliser la fonction Isnum&#233;ric(expression) qui Retourne une valeur bool&#233;enne indiquant si une expression peut &#234;tre &#233;valu&#233;e sous la forme d'un nombre.
mais dans ce cas meme les r&#233;els sont consid&#233;r&#233;s Num&#233;riques ce qui est normal mais pour le code postale.
mais &#231;a te serviras peut etre un jour.

cs_CanisLupus · Answer

Je ne vais sans doute rien ajouter de positif &#224; la discussion mais je me permet quand m&#234;me de donner mon avis.

J'aime bien la soluce de Starec :
If Not Chr(KeyAscii) Like "[0123456789]" Then KeyAscii = 0
sauf que je l'aurais &#233;crite :
If Not Chr$(KeyAscii) Like "[0123456789]" Then KeyAscii = 0

car on oublie trop souvent l'op&#233;rateur Like qui est souvent plus rapide que de jouer avec des mid$, left$ et right$ lors de recherches dans des enregistrements et fichiers.

Mais, en terme de performance, dans ce cas pr&#233;cis, je pr&#233;f&#232;re celle de 
crenaud76 :
If KeyAscii <48 Or KeyAscii > 57 then KeyAscii = 0

car cela &#233;vite une premi&#232;re conversion en caract&#232;re ascii ( chr$(KeyAscii) ) puis une recherche dans une cha&#238;ne "[0123456789]".

Je sais bien qu'avec les syt&#232;mes actuels la diff&#233;rence est minime voire proche de nulle (puisque dans ce cas, la diff&#233;rence du temps d'ex&#233;cution est absorb&#233;e par le temps de saisie) mais je pense qu'il est bon de conna&#238;tre les 2 m&#233;thodes et les utiliser &#224; bon escient.

Loup Gris

crenaud76 · Answer

Canis Lupus < M&#234;me analyse que toi du pb, donc m&#234;me d&#233;duction et donc proposition de ce code, plutot que de la solution avec le Like, comme toi.
On est sur la m&#234;me longueur d'onde toi et moi !! Pour un F&#233;lin et un "Canis Lupus", c'est un comble !!!

Christophe R

Récuperer code Ascii d'une entées clavier

8 réponses

Discussions similaires