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” 如何禁用自动舍入数字。或者是否有其他格式化文本的代码？ “###，###，###。##”＆lt;＆lt;它应该是这样的

感谢

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

vb.net 2010中的格式编号

2 个答案: