Remplacer le point par la virgule ?

Messages postés
3
Date d'inscription
jeudi 4 juillet 2002
Statut
Membre
Dernière intervention
5 juillet 2002
-
Messages postés
124
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
31 décembre 2011
-
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

Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
2
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
Messages postés
3
Date d'inscription
jeudi 4 juillet 2002
Statut
Membre
Dernière intervention
5 juillet 2002

-------------------------------
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......
Messages postés
124
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
31 décembre 2011

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

@++
Megatrix