Bonjour,
J'utilise deux fonctions d'user32 dans un userform
Declare Function SetTimer Lib "user32" (ByVal ghwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Le timer est lancé par la ligne
khwnd = SetTimer(ghwnd, 0, 1, AddressOf97("GetPressedKey"))
Là, ça marche.
Quant à la seconde censée l'arrêter...
Declare Function KillTimer Lib "user32" (ByVal khwnd As Long, ByVal nIDEvent As Long) As Long
... lancée par la ligne
... reste inopérant
(ghwnd et khwnd sont déclarés en public dans un module)
Si quelqu'un a la solution pour que ça fonctionne, il aura droit à ma reconnaissance éternelle (si si !)
Donc, d'avance, merci
A+
NB - Même s'il ne marche pas mieux que les autres, le code ci-dessus est celui qui m'a semblé le plus cohérent de mes nombreux essais...
Partager