vb.net - vb.net 2010中的格式化数字

Question

我使用此代码格式化我的文本框。

Public Function TextFormat(ByVal sString As String) As String
        Dim num1 As Decimal
        Try
            num1 = Convert.ToDecimal(sString)
            TextFormat = FormatNumber(num1, 2)
            Return TextFormat
        Catch
            TextFormat = sString
        End Try
    End Function

-问题是它四舍五入我输入的数字..样本

textbox.text =“5999.99”它显示“6000.00”我如何禁用自动舍入数字。或者还有其他用于格式化文本的代码吗？"###,###,###.##" <<应该是这样的

谢谢

Answer 1

使用 ToString 而不是 FormatNumber。

Public Function TextFormat(ByVal sString As String) As String
    Dim num1 As Decimal
    If Double.TryParse(sString, num1) Then
        Return num1.ToString("G") ' or ToString("F2") or ToString("0.00") 
    Else
        Return sString
    End If
End Function

Answer 2

尝试使用：

 Dim number = Math.Truncate(CInt(textbox.text) * 1000) / 1000;

 textbox.text = number.toString