nouvelleChaine = machainedorigine.replace(ancienCar,nouveauCar)
Dim str as String =TXT_CONSO.Text TXT_CONSO.Text = str.Replace(".", ",")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub TXT_CONSO_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TXT_CONSO.KeyPress
e.KeyChar = Replace(e.KeyChar, ".", ",")
End Sub
dim flagvirgule as boolean
If My.Application.Culture.NumberFormat.NumberDecimalSeparator = "," Then
flagvirgule = true
else
flagvirgule = false
End If
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