How to set the decimal places to auto according user entries in VB.NET?

Question

I have textbox receives number by the user. the problem is that I want to format this textbox to show the numbers as the next face: 15000.25 >> 15,000.25 I used FormatNumber Function:

dim x as double
x = FormatNumber(textbox1.text,2)
textbox1.text = x

but here the problem is I want to keep the decimal places as entered by the user, examples:

15000.225 >> 15,000.225 NOT 15,000.22 0.00083 >> 0.00083 NOT 0

I hope my problem is clear.

Dumb but simple: `dim result = [Double].ToString("N30", CultureInfo.InvariantCulture).TrimEnd("0"c)` — Jimi, Aug 29 '20 at 19:54
See [this SO question](https://stackoverflow.com/a/31330178/2330053)? — Idle_Mind, Aug 29 '20 at 21:32
@Idle_Mind I tried must of the formats but nothing happened, I don't want to be bound by an exact number of decimal places — Hamada, Aug 29 '20 at 23:21
Are we dealing with ONE number in the TextBox, or multiple numbers? — Idle_Mind, Aug 29 '20 at 23:22
one number in each time but every time is different @Idle_Mind — Hamada, Aug 29 '20 at 23:51

score 1 · Accepted Answer · answered Aug 30 '20 at 14:03

1

I found the next solution:

Dim xStr As String = CStr(Me.Text)
Dim xCount As Integer = Len(Split(xStr, ".")(1))
Me.textbox1.Text = FormatNumber(Me.Text, xCount)

it's working for me. thanks

answered Aug 30 '20 at 14:03

Hamada

517
3
13

This will fail if there is no "." in the input. You should check for that... – Idle_Mind Aug 30 '20 at 15:45

score 0 · Answer 2 · answered Aug 30 '20 at 03:32

Try this out:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim dbl As Double
    If Double.Parse(TextBox1.Text, dbl) Then
        Dim parts() As String = dbl.ToString.Split(".")
        Dim strDecimalPattern As String = ""
        If parts.Length = 2 Then
            strDecimalPattern = New String("#", parts(1).Length)
        End If
        Dim strPattern As String = "{0:#,##0" &
            If(strDecimalPattern <> "", ".", "") &
            strDecimalPattern & "}"
        TextBox1.Text = String.Format(strPattern, dbl)
    End If
End Sub

How to set the decimal places to auto according user entries in VB.NET?

2 Answers2