VB.Net Changer le "." (point) par une "," (virgule) [Résolu]

cs_JeffC1977 929 Messages postés vendredi 10 novembre 2000Date d'inscription 10 septembre 2010 Dernière intervention - 4 sept. 2007 à 13:18 - Dernière réponse : cs_JeffC1977 929 Messages postés vendredi 10 novembre 2000Date d'inscription 10 septembre 2010 Dernière intervention
- 5 sept. 2007 à 15:37
Salut...

Je suis à la recherche de comment faire pour que si l'utilisatuer utilise un point, dans mon textbox il y aura une virgule.

J'ai trouvé ce code sur vbfrance mais ca marche pas, j'ai une erreur... Si quelqu'un peut me donner un coup de main 

merci d'avance

P.S. Erreur en Gras et Souligné plus bas. 1.Handles clauses requires a WithEvents variable defined in the containing type or one of its bases types
2. Property 'KeyChar' is 'ReadOnly'

Private
Sub decimaltxt_KeyPress(
ByVal sender
As
Object,
ByVal e
As System.Windows.Forms.KeyPressEventArgs)
Handles decimaltxt.KeyPress

'on accepte chiffres et virgule, ainsi que la touche back. On remplace un eventuel point par une virgule, et on refuse la saisie d'une virgule en tant que premier caractere
'remplacement du point par une virgule

If Asc(e.KeyChar) = 46
Then e.KeyChar =
","
'si c'est une virgule et qu'il y en a déja une dans le textbox, ou qu'elle est tappé en premier caractère, on annule la saisie
If Asc(e.KeyChar) = 44
And (
CType(sender, TextBox).Text.IndexOf(
",") > 0
Or
CType(sender, TextBox).Text =
"")
Then e.Handled =
True

End
Sub
Afficher la suite 

3 réponses

Répondre au sujet
cs_JeffC1977 929 Messages postés vendredi 10 novembre 2000Date d'inscription 10 septembre 2010 Dernière intervention - 5 sept. 2007 à 15:37
+3
Utile
Voilà la solution...

Public
Sub TextBox_KeyPress(
ByVal sender
As
Object,
ByVal e
As System.Windows.Forms.KeyPressEventArgs)
Handles txtNewPoint.KeyPress, txtPcode_.KeyPress, txtPoint1.KeyPress, txtPoint2.KeyPress, txtPoint3.KeyPress, txtPoint4.KeyPress, txtStation.KeyPress, txtBack.KeyPress, txtPointTA.KeyPress, txtPointSaisi.KeyPress, txtPcode.KeyPress, txtAzimutSaisi.KeyPress, txtDistanceSaisi.KeyPress, txtPoint1TA.KeyPress, txtPoint2TA.KeyPress, txtDirRefTA.KeyPress, txtPoint3TA.KeyPress, txtAzimutTA.KeyPress, txtDistanceTA.KeyPress, txtPcodeTA.KeyPress



' Remplace le point par une virgule

If
e.KeyChar = "."c

Then

CType
(sender, TextBox).SelectedText = ","c
e.Handled =

True

End



If

End



Sub
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_JeffC1977
cs_JeffC1977 929 Messages postés vendredi 10 novembre 2000Date d'inscription 10 septembre 2010 Dernière intervention - 4 sept. 2007 à 18:43
0
Utile
Re...
J'ai résolu un erreur mais ma je n'arrive pas à résoudre la première condition car c'est du .NET Framework et je suis en compact Framework...

Si quelqu'un peut me donner un coup de main...

merci.

Private
Sub Decimaltxt_KeyPress(
ByVal sender
As
Object,
ByVal e
As System.Windows.Forms.KeyPressEventArgs)
Handles
Me.KeyPress

If Asc(e.KeyChar) = 46
Then
",",
"." ) 'The targeted version of the .Net Compact Framework does not support latebinding

If Asc(e.KeyChar) = 44
And (
CType(sender, TextBox).Text.IndexOf(
",") > 0
Or
CType(sender, TextBox).Text =
"")
Then e.Handled =
True

End
Sub
Commenter la réponse de cs_JeffC1977
cs_JeffC1977 929 Messages postés vendredi 10 novembre 2000Date d'inscription 10 septembre 2010 Dernière intervention - 4 sept. 2007 à 20:38
0
Utile
Bon le code a encore changer. Mon seul problème est que ca devrait marcher mais ca marche pas...

Sub TextBox_KeyPress(
ByVal sender
As
Object,
ByVal e
As System.Windows.Forms.KeyPressEventArgs)

If e.KeyChar = "."c
Thene.KeyChar = ","c

If Asc(e.KeyChar) = 44
And (
CType(sender, TextBox).Text.IndexOf(
",") > 0
Or
CType(sender, TextBox).Text =
"")
Then e.Handled =
True
End
Sub

Erreur disant : Property 'KeyChar' is 'ReadOnly'

Pourquoi je suis en lecture seul   Je ne comprends rien... ???

merci de votre aide
Commenter la réponse de cs_JeffC1977

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.