Virgules et Points

Question

Salut tout le monde,
j'ai un petit problème: Lorsque je rentre un chiffre à virgules dans une textebox, suivant les options régionales de windows (, ou . ) Comment puis je faire pour que VB prenne indifférement les points et les virgules pour transformer mes chiffres en double. En effet, sur certains ordi, quand je tappe un chiffre comme 3.14 tout va bien, mais parfois, je dois tapper 3,14 ! ... 
Merci

cs_rene38 · Answer

Bonjour
par exemple :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(",0") Then    If KeyAscii 46 Then KeyAscii 44
Else    If KeyAscii 44 Then KeyAscii 46
End If
End Sub

devil_recycler · Answer

tu peux aussi faire un replace : 


TextBox.Text=replace(TextBox.Text, ".", ",")


 >:)  Devil_Recycler  >:)

cs_pluplu · Answer

Encore une fois ça ne sert à rien de se battre contre le problème, le fait de remplacer le point par la virgule ou vis versa c'est bien joli mais tôt ou tard ça bug sur autre chose que l'on avais pas prévus, le mieux c'est d'aller chercher directement dans la registry le séparateur décimal et d'adapter son programme en fonction.
voici par exemple sur win2000 la commande 

Dim SepDec as string *1
SepDec = mRegistry_QueryValueKeyString(&H80000001, "Control Panel\International", "sMonDecimalSep")

Pascal Laurençon

Virgules et Points

3 réponses

Discussions similaires