在vb中，如何将在text文本框中输入的数据自动显示为千位分隔符。。

Question

在vb中，如何将在text文本框中输入的数据自动显示为千位分隔符。。

Answer 1

两种方法，第一种是在属性对话框中选择FONT，双击它进行设置。
第二种方法就是在代码里面设置，用FORMATE函数。

Answer 2

Dim formatflg As Boolean
Private Sub Text1_Change()
If formatflg Then
formatflg = False
Exit Sub
End If
If Len(Text1.Text) < 4 Then
Exit Sub
End If
Dim temp As String
Dim temp2 As String
Dim leftlen As Integer
temp2 = Replace(Text1.Text, ",", "")
leftlen = Len(temp2) Mod 3
For i = 3 To Len(temp2) Step 3
If i = 3 Then
temp = Mid(temp2, Len(temp2) - i + 1, 3)
Else
temp = Mid(temp2, Len(temp2) - i + 1, 3) & "," & temp
End If
Next i
If leftlen <> 0 Then
temp = left(temp2, leftlen) & "," & temp
End If

formatflg = True
Text1.Text = temp
Text1.SelStart = Len(Text1.Text)
End Sub