Bonjour,

J'utilise une API pour détecter chaque saisie clavier (SetWindowsHookEx, CallNextHookEx, ...).

Quand je détecte un événement clavier, je fais des tests sur la valeur récupéree.

je déclare une variable dans un module à part
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim curseur As Integer
et dans le module où je récupère l'évenement clavier j'ai le code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Public Function IsHooked(ByRef Hookstruct As KBDLLHOOKSTRUCT) As Boolean
If Hookstruct.flags Then
         Select Case curseur
                    Case 0
                        If Hookstruct.vkCode = 160 Then 'valeur key récupérée = 160
                            curseur = 1
                            MsgBox("0 ok")
                            code0 = 160
                        Else
                            MsgBox("erreur curseur")
                        End If
                    Case 1
                            MsgBox("1 ok")
                            code1 = temp
                            modvarglobal.curseur = 2
                     ...
                    Case Select
                             'code
          End Select
 
          Return False
 
Else
          Return True
End If
 
End Function
A la première valeur saisie, je rentre bien dans le Case 0, mais au deuxième caractère détecté, curseur est toujours égal à 0 ! ("erreur curseur" s'affiche")

What's the problem ?