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
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 Dim curseur As Integer
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")
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
What's the problem ?
Partager