keypress a deux reprises dans textbox

Question

Bonjour,

Je fais une petite application de calcul, et lorsque l'utilisateur appuie sur la touche correcte, on passe au calcul suivant:7 + 2 9 (KeyAscii asc"9"), c'est OK
mais lorsqu'on a :7 + 3 10 (KeyAscii asc"1" puis KeyAscii = asc "0"), KO

cs_eldim · Answer

Bonjour,
V&#233;rifie que tu n'ai pas un courcircuit &#233;v&#233;nementiel
Du style Ev&#233;nement Exit ou lostfocus ou encore Affectation de bouton par d&#233;faut au formulaire... etc

cs_lacomm · Answer

Non, il n'y a pas tout &#231;a et d'aileurs ca marche tr&#232;s bien avec les simples keypress, mais pourquoi, ca devrait marcher normalement ? voici la fonction:

Private sub reponse_keypress  (KeyAscii as integer)

if KeyAscii = asc("1") then

if KeyAscii = asc("0") then 

etc


merci en tout cas

cs_lacomm · Answer

bah d&#233;sol&#233; pour la mise en page, mais c'est chaque fois comme &#231;a sous MAC os X

cs_eldim · Answer

c normal que &#231;a ne marche qu'une seule fois....
au lieu de faire : if 1 then if 0
il faut que tu sauvegarde le 1 dans une variable puis
lorsque tu es de retour dans ta procedure v&#233;rifier si elle est &#233;gale &#224; 1 en m&#234;me temps que tu v&#233;rifies si on tape 0
bref lors d'un appui sur une touche tu passes dans la procedure
mais tu ne fais pas un appui sur une touche entre deux "if"

cs_lacomm · Answer

bon voil&#224;, j'ai fait ceci


  If KeyAscii Asc("1") Then  vard 1  If KeyAscii Asc("0") Then  vardu 1 If vard 1 And vardu 1 Then
                resultat.Caption = "BRAVO !"
                recommence.Visible = True
  End If

ne marche pas 

et puis ceci aussi ne marche pas
If KeyAscii Asc("1") Then vard 1
If KeyAscii = Asc("0") Then
                If vard = 1 Then MsgBox "ok"
End If

cs_eldim · Answer

J'esp&#232;re que ta variable "vard" est public.... ?
If KeyAscii = Asc("1") Then 
   vard = 1
ElseIf KeyAscii = Asc("0") Then
   If vard = 1 Then MsgBox "ok"
End If

cs_lacomm · Answer

oui oui
ceci dit, il y a peut-&#234;tre une solution ici: http://www.vbfrance.com/forum.v2.aspx?ID=623458
mais ca me semble bien compliqu&#233;.

cs_eldim · Answer

Ben &#231;a dit de remplacer ta fonction KeyPress par le code en question
Et ton code il faut le placer dans "KeyboardProc" a priori...

Mais en th&#233;orie tu n'a pas besoins de passer par les API si tu ne fais pas des acces simultan&#233;s...

cs_lacomm · Answer

merci de ton aide
je vais peut-&#234;tre voir autre chose que keypress

cs_eldim · Answer

sinon y a keydown ki fonctionne mieux

cs_lacomm · Answer

ben j'ai essay&#233; ceci mais ca ne marche pas:   If KeyCode vbKey1 Or KeyCode vbKeyNumpad1 Then
            vard = 1
 End If If KeyCode vbKey0 Or KeyCode vbKeyNumpad0 Then
            If vard = 1 Then

Dans certains posts, on parle de keylogger, de hook clavier, pourtant, dans le cas d'une inputbox, on entre du texte tant qu'on veut !?

cs_lacomm · Answer

bien s&#251;r, j'ai mis ceci avant keycode:


Private Sub reponse_KeyDown(KeyCode As Integer)

cs_eldim · Answer

Au fait, j'ai oubli&#233; de te dire... lors d'un appuis clavier ton focus risque de changer...
si ton focus change ton &#233;v&#233;nement g&#233;n&#233;r&#233; par l'appui clavier sera celui d'un autre control...
Je ne sais pas comment est ton code mais si tu veux &#234;tre sur de faire un test correctement cr&#233;e un nouveau formulaire vide et met le code keydown &#224; ton formulaire et fais le test

cs_lacomm · Answer

voil&#224;n j'ai refait un simple form avec un seul textbox et le code qui suit mais nada:

Private Sub reponse_KeyDown(KeyCode As Integer, shift As Integer)
Dim vard As Integer    If KeyCode vbKey1 Or KeyCode vbKeyNumpad1 Then
        MsgBox KeyCode    OK 
        vard  = 1
    End If    If KeyCode vbKey0 Or KeyCode vbKeyNumpad0 Then
        MsgBox KeyCode    OK  
        If vard  = 1 Then
            MsgBox "ok"        KO
        End If
    End If
End Sub

cs_eldim · Answer

pas de texte box, rien....
que le formulaire....

cs_lacomm · Answer

comme ceci ?
Private Sub Form1_KeyDown(KeyCode As Integer, shift As Integer)
 mais il n'y a plus rien qui appara&#238;t alors

cs_eldim · Answer

pas grave tu met une msgbox ou un debug.printline et tu regarde dans la fenetre de commande

cs_lacomm · Answer

ben oui j'ai mis un msgbox comme dans le code pr&#233;c&#233;dent, mais rien de rien !

Keypress a deux reprises dans textbox

18 réponses

Discussions similaires