Discussion :

[sBoOb14]

Bonjour à tous,

J'ai déjà vu pas mal de poste à ce sujet, mais mon problème à la particularité que je ne peux pas passer de paramètre à ma procédure...

En gros, voici mon problème:

Mon contrôle utilisateur à pour but de générer un événement lors du changement de l'état des touches capslock, numlock et scrolllock, mais aussi de changer lui même leurs états via 3 propriétés.

Mon problème est que l'api windows pour placer un hook demande l'adresse de la procédure ou fonction à exécuter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowsHookEx(WH_KEYBOARD, AddressOf keyboardproc, App.hInstance, App.ThreadID)

AddressOf nécessite apparemment que la procédure à appeler lors du hook soit dans un module.

Ma procédure (dans le module) est bien appelée par windows, mais je n'arrive pas à changer la valeur des propriétés de mon contrôle ou même d'appeler une procédure de celui-ci.

Si quelqu'un à une idée

[ThierryAIM]

L'application ToucheVerrou de ProgElecT est peut-être un début de solution

[Vld44]

mon problème à la particularité que je ne peux pas passer de paramètre à ma procédure...

Hmm il me semble que c'est bloquant, tu reçois les infos évements clavier comment ?

[sBoOb14]

Merci pour vos réponses, concernant l'appli toucheverrou, celle ci permet juste de changer l'état des touches, ce que je fait aussi sans problème même si je n'utilise pas la même méthode.

Concernant les événements clavier, je les reçois via un hook.

Via l'API SetWindowsHookEx je dis à windows que si il à un événement WH_KEYBOARD (c'est à dire changement d'état d'une touche du clavier) il doit appeler la procédure keyboardproc, celle-ci recevant en paramètre plein de truc dont la touche appuyée.

Le problème est que pour préciser à l'API la procédure (ou fonction) à appeler, je dois lui donner l'adresse de cette procédure (via AddressOf)

AddressOf retournant une erreur si la procédure n'est pas dans un module.

Comme le dit si bien l'aide :

AddressOf procedurename
L'argument procedurename indique la procédure dont l'adresse va être passée. Il doit désigner une procédure figurant dans un module standard du projet dans lequel l'appel est effectué.

[sBoOb14]

Bon, j'ai trouvé une solution mais je trouve ça "crade"

Je déclare dans le module une variable objet, que je défini au chargement de l'UC à "me" puis je l'utilise dans le module. Ça revient plus ou moins au même que de passer l'objet en paramètre...

Personne n'a une autre solution plus propre ?

[Vld44]

montre ta fonction hookée.

[sBoOb14]

Voila la fonction hooké

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
Function keyboardproc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
    'On ne traite pas en conception, sinon ca déconne
    If Obj_Ctrl.is_usermode = False Then
        Exit Function
    End If
 
    'si idhook < 0 : rien à faire
    If idHook >= 0 Then
 
        'Récupération de l'état du clavier
        GetKeyboardState kb_state
        Select Case wParam
            Case KBD_CAPSLOCK
                Obj_Ctrl.Call_Event_Caps (kb_state.key(wParam) = 1)
            Case KBD_NUMLOCK
                Obj_Ctrl.Call_Event_Num (kb_state.key(wParam) = 1)
            Case KBD_SCROLL
                Obj_Ctrl.Call_Event_Scroll (kb_state.key(wParam) = 1)
        End Select
 
    End If
 
    'Appel du prochain hook
    keyboardproc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End Function

Obj_Ctrl=me (mon usercontrol)
Obj_Ctrl.is_usermode=UserControl.ambient.usermode
GetKeyboardState Api renvoyant l'état de chaque touche du clavier
Obj_Ctrl.Call_Event_XXXXXX procédures déclenchant les événements de mon contrôle.