txt = FormatNumber(buffer, DecimaleNb, TriState.True)
Bon apparemment la chaîne de formatage utilise le point décimal, quelque soit la culture.
Dim toto as Double = 1.2
format("1,125", "##.00")
Private Sub TxbCfgPosPince_KeyUp(sender As Object, e As KeyEventArgs) Handles TxbCfgPosPince.KeyUp If e.KeyCode = Keys.Enter Then Config.SerragePince = CDbl(sender.Text) End Sub
Cdbl(sender.text)est moche mais tellement plus rapide à écrire que le code en dessous... ;)
Private Sub TxbCfgPosPince_KeyUp(sender As Object, e As KeyEventArgs) Handles TxbCfgPosPince.KeyUp If e.KeyCode = Keys.Enter Then Config.SerragePince = Double.Parse(CType(sender, NumBox).Text) End Sub
If e.KeyCode = Keys.Enter Then Config.SerragePince = Double.Parse(TxbCfgPosPince.Text)