Remplacer le point par la virgule ?

Je voudrais faire comme dans Excel, c'est à dire que lorsqu'on appuie sur le point du pavé numérique (vbKeyDecimal), ce dernier soit instantanément remplacé par la virgule dans mon application (et seulement dans mon application) et ce, quelque soit le contôle.

Merci

C'est tres simple... Dans tout les evenement KeyPress de tes controle ou tu peux entrer du texte, tu analyse la touche frappé et si c'est un point, tu le remplace par un point virgule...

Exemple:
Disons que le point est pour code acsii 2 et la virgule 5.

Private Sub Text1_KeyPress(KeyAscii as Integer)
If keyascii = 2 then keyascii = 5
end if

Voili voilou...
Logiquement ca devrais marcher ...
Si t'as d'autres questions n'hesite pas...
A++ et bonne prog

DeAtH_-_CrAsH



-------------------------------
Réponse au message :
-------------------------------

Je voudrais faire comme dans Excel, c'est à dire que lorsqu'on appuie sur le point du pavé numérique (vbKeyDecimal), ce dernier soit instantanément remplacé par la virgule dans mon application (et seulement dans mon application) et ce, quelque soit le contôle.

Merci

-------------------------------
Réponse au message :
-------------------------------

C'est tres simple... Dans tout les evenement KeyPress de tes controle ou tu peux entrer du texte, tu analyse la touche frappé et si c'est un point, tu le remplace par un point virgule...

Non justement, je ne veux pas mettre cet évènement sur tous mes contrôles !!!
Je veux plutôt mettre un Hook clavier qui analyse ce qui se passe
ma piste de recherche en ce moment :
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)

c'est fait pour apparement mais je n'y arrive pas

Merci quand même......

Private Sub Text1_Change()
Text1.Text = Replace(Text1.Text, ".", ",")
End Sub

@++
Megatrix