Remplacerun point par une virguleRésolu

Question

Bonjour, 
 
 dans mon code qui devrait fonctionner j'essaie de remplacer la saisie d'un point dans mon textbox par une virgule

" Private Sub TXT_CONSO_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TXT_CONSO.KeyPress
        If e.KeyChar = "." Then
            Replace(TXT_CONSO.Text, ".", ",")
        End If
    End Sub"

Ce textbox est ensuite converti en double pour un calcul
Mon code en mode débogage intercepte le fait qu'un point est saisi passe au replace mais la rien ne se passe
Merci pour votre aide 

--

jordane45 · Answer

Lorsque tu postes du code, merci d'utiliser la coloration syntaxique.
Voir ici :http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

jordane45 · Answer

Bonjour,

La fonction replace fonctionne de la manière suivante :

nouvelleChaine = machainedorigine.replace(ancienCar,nouveauCar)

 
http://msdn.microsoft.com/fr-fr/library/czx8s9ts%28v=vs.110%29.aspx

Donc:

Dim str as String =TXT_CONSO.Text
TXT_CONSO.Text = str.Replace(".", ",")

dartagnan43 · Answer

Merci bcp
je test et jereviens
 
--

dartagnan43 · Answer

Désolé mais j'ai exactement le même résultat 
je cherche pourquoi le changement ne se fait pas
 
--

dartagnan43 · Answer

J'ai trouvé et ça marche merci Jordane45
j'ai simplement déplacé le replace a la verif saisie de mon code
 
 
--

dartagnan43 · Answer

le top du top c'est d'écrire dans l'evenement press key du textbox correspondant le code suivant

 Private Sub TXT_CONSO_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TXT_CONSO.KeyPress        e.KeyChar = Replace(e.KeyChar, ".", ",")    End Sub
 
--

cs_ShayW · Answer

Bonjour

Avant de modifier le séparateur décimal  il faudrait vérifier si c'est 
bien une virgule
dim flagvirgule as booleanIf My.Application.Culture.NumberFormat.NumberDecimalSeparator = "," Then       flagvirgule = true else       flagvirgule = falseEnd If

et ensuite sers toi du flagvirgule 
Private Sub TXT_CONSO_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TXT_CONSO.KeyPress      if flagvirgule then           e.KeyChar = Replace(e.KeyChar, ".", ",")     end if     End Sub

Remplacerun point par une virgule

7 réponses

Votre réponse