Question

将VB文本框内输入的数字转为货币形式

如输入12000 则自动在文本框内显示 12，000.00 在线等
可以加分(⊙o⊙)哦

Answer 1

用数字格式函数format(12000,"#,##0.00")就可以了

Answer 2

Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave, TextBox2.Leave
Dim str As String = TextBox1.Text.Trim()
If Not String.IsNullOrEmpty(str) And IsNumeric(str) Then
TextBox1.Text = FormatCurrency(str)
End If
End Sub

Answer 3

Text1.Text = Format(Val(Text1.Text), "#,##0.00")