problème de récupération de vbKeyCode/vbKeyAsciiRésolu

Question

Bonjour,



Je travaille sur un programme pour les aveugles et donc avec une
synth&#232;se vocale. J'ai une textBox mutiligne et je dois r&#233;cup&#233;rer
lorsque l'utilisateur appuye sur diff&#233;rente touche.



J'utilise un Form_KeyDown



if (KeyCode = vbKeyReturn) then 

    KeyCode = 0

    action1() 

end if



if (KeyCode = vbKeyUp) then 

    KeyCode = 0

    action2() 

end if



if (KeyCode = vbKeyDown) then 

    KeyCode = 0

    action3() 

end if



cela marche tr&#232;s bien pour vbKeyReturn mais pas pour Up et Down car &#231;a
effectue qd m&#234;me l'action fl&#232;che bas et haut sur la txtBox multiligne
alors que j'ai mis KeyCode = 0



quelqu'un peut m'aider???

et m'expliquer la diff&#233;rence entre Form_KeyPress, Form_KeyUp...



Merci d'avance

PCPT · Accepted Answer

il ne faut pas m&#233;langer le KeyCode et le KeyAscii

ceci peut t'aider :
cr&#233;e un nouveau projet,
Form Keypreview True
2 TxtBox (1 & 2) multiligne

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode    Case 37: Text2 Text2 & vbCrLf & "[LEFT]": KeyCode 0    Case 38: Text2 Text2 & vbCrLf & "[UP]": KeyCode 0    Case 39: Text2 Text2 & vbCrLf & "[RIGHT]": KeyCode 0    Case 40: Text2 Text2 & vbCrLf & "[DOWN]": KeyCode 0
    End Select
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
    Text2 = Text2 & vbCrLf & KeyAscii
    KeyAscii = 0
End Sub

PCPT

adess00 · Answer

Bonjour 
alors si j ai bien compris lorsque l utilisateur appuie sur une touche, la synthese vocale dit cette touche.
Si c est bien sa je ne me limiterai pas a un textbox mais je recupererai chaque touche presser en lui attribuant le son specifique.
Comme sa, ou qu on soit dans le systeme, la synthese vocale marcherai

Sinon j utiliserai plutot 

Private Sub Text1_KeyPress(KeyAscii As Integer)
select case keyascii ' evite de mettre plein de if ... then

case asc(a) 'si la touche a est press&#233;e
   action1 'l action a se declenche

case asc(b) 'si la touche b est press&#233;e
   action2 'l action a se declenche

etc...


End Sub

A toi de voir
a+

agnescol · Answer

non la synth&#232;se vocale permet de lire le texte contenu dans les textBox 



d'autre part j'ai bien pens&#233; &#224; votre solution mais il y a plusieurs
textBox donc je pr&#233;f&#232;rerai r&#233;cup&#233;rer les appuis sur les touches &#224; tout
moment



sinon je ne comprends pas pourquoi &#231;a marche pour la touche entr&#233;e
(n'effectue pas l'action d'entr&#233;e puisque le texte de ma textBox est
selectionn&#233; et la touche entr&#233;e devrait tout effacer hors cela ne le
fait pas ) alors que pour les touches up et down &#231;a ne marche pas &#231;a va
&#224; la ligne du dessus



sinon ok pour le select !!!

adess00 · Answer

Je ne comprend pas a koi sa sert d appuyer sur ces touches si le prog permet de lire le texte mais bon je cherche une solution la !
a tte

agnescol · Answer

bon je vais expliquer un peu plus en fait c un programme
d'apprentissage d'un clavier donc le texte permet d'expliquer ou sont
les touches et moi je dois r&#233;cup&#233;rer les touches pour voir si c bon



Merci de passer du temps pour trouver une solution !!!

adess00 · Answer

C re moi
J ai trouver le probleme 
Tout d abord pour repondre a ta question precedente, keypress ce declenche quand on appuie sur une touche et keydown, quand une touche est enfonc&#233;e et donc keyup quand elle est relach&#233;e

Le probleme est que ces methodes ne recuperent pas les touches des fleches tout simplement.C est pourkoi l action ne se produit pas et donc le keycode=0 ne marche pas

voila !
a+

agnescol · Answer

alors je change ma question comment r&#233;cup&#233;rer l'appuie sur les touches fl&#232;ches ?????

adess00 · Answer

Solution : API windows

' Appel Pour la detection de la touche activ&#233;e
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Sub Timerkey_Timer()
kp = 256
sk = " "


For t = 1 To 255
If GetAsyncKeyState(t) = -32767 Then
kp = t
End If
Next t

'kp correspond a la touche press&#233;e
If kp 37 Then kp "[LEFT]"If kp 38 Then kp "[UP]"If kp 39 Then kp "[RIGHT]"If kp 40 Then kp "[DOWN]"

end sub

Voila le timer est fix&#233; a 1ms en faite sa verifie l etat des touches toutes les millisecondes j aime pas trop cette methode mais j ai trouv&#233; que sa 
Je te laisse adapt&#233; le code

a+

PCPT · Answer

bonsoir,
Form_Load : 
Me.KeyPreview = True

&#231;&#224; devrait t'aider...
PCPT

agnescol · Answer

pour adess00, merci d'avoir chercher tout &#231;a en effet ta fonction
permet de r&#233;cup&#233;rer toutes les touches mais pas de supprimer l'action
de la touche en effet moi je veux que lorsqu'il touche sur la touche
fl&#232;che haut je le detecte et que cela ne fasse pas l'action fl&#232;che haut
d'o&#249; mon KeyCode = 0



pour pcpt, j'ai d&#233;j&#224; mis cette option &#224; True gr&#226;ce &#224; d'autre message sur ce sujet dans ce forum d'ailleurs





qq'1 &#224; une autre id&#233;e???



Merci d'avance

agnescol · Answer

Merci beaucoup c exactement ce que je voulais 



je rajoute juste certaines touches qui ne sont pas des codes Ascii !!!



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode

    Case vbKeyShift: Text2 Text2 & vbCrLf & "[MAJ]": KeyCode 0

    Case vbKeyControl: Text2 Text2 & vbCrLf & "[CTRL]": KeyCode 0

    Case vbKeyMenu: Text2 Text2 & vbCrLf & "[ALT]": KeyCode 0

    Case vbKeyPause: Text2 Text2 & vbCrLf & "[PAUSE]": KeyCode 0

    Case vbKeyCapital: Text2 Text2 & vbCrLf & "[VERR.MAJ]": KeyCode 0

    Case vbKeyPageUp: Text2 Text2 & vbCrLf & "[PAGEUP]": KeyCode 0

    Case vbKeyPageDown: Text2 Text2 & vbCrLf & "[PAGEDOWN]": KeyCode 0

    Case vbKeyEnd: Text2 Text2 & vbCrLf & "[FIN]": KeyCode 0

    Case vbKeyHome: Text2 Text2 & vbCrLf & "[ORIGINE]": KeyCode 0

    Case vbKeyLeft: Text2 Text2 & vbCrLf & "[LEFT]": KeyCode 0

    Case vbKeyUp: Text2 Text2 & vbCrLf & "[UP]": KeyCode 0

    Case vbKeyRight: Text2 Text2 & vbCrLf & "[RIGHT]": KeyCode 0

    Case vbKeyDown: Text2 Text2 & vbCrLf & "[DOWN]": KeyCode 0

    Case vbKeyPrint: Text2 Text2 & vbCrLf & "[IMPRECRAN]": KeyCode 0 ' ne marche pas

    Case vbKeySnapshot: Text2 Text2 & vbCrLf & "[INSTAN]": KeyCode 0 'ne marche pas

    Case vbKeyInsert: Text2 Text2 & vbCrLf & "[INSERT]": KeyCode 0

    Case vbKeyDelete: Text2 Text2 & vbCrLf & "[SUPPR]": KeyCode 0

    Case 91: Text2 Text2 & vbCrLf & "[WINDOWSD]": KeyCode 0 'execute qd m&#234;me

    Case 92: Text2 Text2 & vbCrLf & "[WINDOWSG]": KeyCode 0 'execute qd m&#234;me

    Case 93: Text2 Text2 & vbCrLf & "[CONTEXTE]": KeyCode 0 'execute qd m&#234;me

    Case vbKeyNumlock: Text2 Text2 & vbCrLf & "[VERR.NUM]": KeyCode 0

    Case 145: Text2 Text2 & vbCrLf & "[ARRET DEFIL]": KeyCode 0

    Case vbKeyF1: Text2 Text2 & vbCrLf & "[F1]": KeyCode 0

    Case vbKeyF2: Text2 Text2 & vbCrLf & "[F2]": KeyCode 0

    Case vbKeyF3: Text2 Text2 & vbCrLf & "[F3]": KeyCode 0

    Case vbKeyF4: Text2 Text2 & vbCrLf & "[F4]": KeyCode 0

    Case vbKeyF5: Text2 Text2 & vbCrLf & "[F5]": KeyCode 0

    Case vbKeyF6: Text2 Text2 & vbCrLf & "[F6]": KeyCode 0

    Case vbKeyF7: Text2 Text2 & vbCrLf & "[F7]": KeyCode 0

    Case vbKeyF8: Text2 Text2 & vbCrLf & "[F8]": KeyCode 0

    Case vbKeyF9: Text2 Text2 & vbCrLf & "[F9]": KeyCode 0

    Case vbKeyF10: Text2 Text2 & vbCrLf & "[F10]": KeyCode 0

    Case vbKeyF11: Text2 Text2 & vbCrLf & "[F11]": KeyCode 0

    Case vbKeyF12: Text2 Text2 & vbCrLf & "[F12]": KeyCode 0

    

    End Select

End Sub



Private Sub Form_KeyPress(KeyAscii As Integer)

    Text2 = Text2 & vbCrLf & KeyAscii

    KeyAscii = 0

End Sub

PCPT · Answer

ok

et pour que tu n'aies pas &#224; ajouter "keycode=0" &#224; chaque fois, tu peux le mettre juste en sortie de End Select

et pour information aussi, pour le keypress, si tu veux la touche et non son code :
Text2 = Text2 & vbCrLf & Asc(KeyAscii)

bon courage ;)
PCPT

agnescol · Answer

oui c vrai pour le KeyCode = 0

sinon pour le reste le code me va tr&#232;s bien mais merci pour l'info

Problème de récupération de vbKeyCode/vbKeyAscii

13 réponses

Discussions similaires