Hook Clavier

Question

Je cherche à remplacer le point par la virgule lorsqu'on appuie sur la touche vbKeyDecimal et ce dans toute mon application.

J'utilise la fonction :
SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)

avec la fonction :

Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If (idHook >= 0) Then
        If (wParam = vbKeyDecimal) Then
            KeyboardProc = 1
            SendKeys ","
            Exit Function
        End If
    End If
    KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End Function

Mais le problème c'est que le point est remplacé par deux virgule. L'évènement se déclanche plusieurs fois (je suppose keyup et keydown).

Comment puis-je le filtrer pour n'avoir qu'une virgule ?

ezekiel95 · Answer

Bonjour,
pourrais tu decrire ce code s'il t eplait.
Cel am'interesserais mais les renseignements sur le net sont assez dur a trouver...

Merchi d'avance ;-)

 :-p Ha que merde je me suis shtroumphé ;-) :big)