1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
Sujet Précédent Sujet Suivant

Hook Clavier

Signaler
Messages postés
3
Date d'inscription
jeudi 4 juillet 2002
Statut
Membre
Dernière intervention
5 juillet 2002
 -
Messages postés
42
Date d'inscription
mercredi 27 novembre 2002
Statut
Membre
Dernière intervention
20 mai 2005
 -
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 ?

1 réponse

Réponse 1 / 1
Messages postés
42
Date d'inscription
mercredi 27 novembre 2002
Statut
Membre
Dernière intervention
20 mai 2005
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)
0
Posez votre question