VB6.0中，在一个TextBox里面只输入数字，不能输入其它，比如汉字，符号，英文的方法

当在text框里面输完内容以后，若该控件失去焦点时，要是框里面输入的内容不符合要求，就显示提醒。

 

参考代码：

Private Sub Text1_LostFocus()

For i = 1 To Len(Text1)

    If Not IsNumeric(Mid(Text1, i, 1)) Then

        MsgBox ("不能输入除数字外的其他字符！", 48)

        Text1.SetFocus

        Text1.SelStart = Len(Text1)

        Exit Sub

    End If

Next

End Sub

Text1_Change是在Text1变化时触发，而不是“在其他地方一点鼠”时发生，另外：

1、Text1的值一变化就MsgBox是很烦人的；

2、IsNumeric(Text1.Text)不能完全符合设置，比如你输入12，然后按左箭头将光标移动1和2中间再输入字母E或D，是不会提示的，因为VB中默认1E2之类是数值的（科学计数法，1E2=100）。

另一个方法，用KeyPress事件，限制不输入除数字外的其他字符：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If InStr("0123456789" & Chr(8) & Chr(9), Chr(KeyAscii)) = 0 Then KeyAscii = 0

End Sub

如果判断是否数值（而不仅仅判断是否为数字）可用Text1_LostFocus和Text1_KeyPress的组合。

只能输入汉字：

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii > 0 Then KeyAscii = 0

End Sub

在其他地方一点鼠标判断：

Private Sub Text2_LostFocus()

For i = 1 To Len(Text2)

    If Asc(Mid(Text2, i, 1)) > 0 Then

        MsgBox ("只能输入汉字及全角字符符！", 48)

        Text2.SetFocus

        Text2.SelStart = Len(Text2)

        Exit Sub

    End If

Next

End Sub