vb 显示“1，000”

Question

VB的text在输入时，例如输入1000，显示成“1，000”

Answer 1

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
 Dim a As String, b
 b = Text1
 a = Format(b, "#,###")
 Text1 = a
 Text1.SelStart = Len(a)
End Sub

Answer 2

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
 Dim a As String, b
 b = Text1
 a = Format(b, "#,###")
 Text1 = a
 Text1.SelStart = Len(a)
End Sub

Answer 3

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Text=format(text1.text,"#,###"
End Sub

Answer 4

text1.text=format(text1.text,"standard")

Answer 5

Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "#,###")
End Sub