Remplacer le point par la virgule ?

c4medable Messages postés 3 Date d'inscription jeudi 4 juillet 2002 Statut Membre Dernière intervention 5 juillet 2002 - 4 juil. 2002 à 18:14
cs_MEGATRIX Messages postés 124 Date d'inscription jeudi 3 janvier 2002 Statut Membre Dernière intervention 31 décembre 2011 - 5 juil. 2002 à 00:26
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

3 réponses

DeAtHCrAsH Messages postés 2670 Date d'inscription vendredi 25 janvier 2002 Statut Membre Dernière intervention 6 février 2013
4 juil. 2002 à 18:32
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
0
c4medable Messages postés 3 Date d'inscription jeudi 4 juillet 2002 Statut Membre Dernière intervention 5 juillet 2002
4 juil. 2002 à 19:13
-------------------------------
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......
0
cs_MEGATRIX Messages postés 124 Date d'inscription jeudi 3 janvier 2002 Statut Membre Dernière intervention 31 décembre 2011
5 juil. 2002 à 00:26
Private Sub Text1_Change()
Text1.Text = Replace(Text1.Text, ".", ",")
End Sub

@++
Megatrix
0
Rejoignez-nous