如何让该文本框只接收文字，其余输入报错。大家的解答连输入汉字时都报错。

Question

如何让该文本框只接收文字，其余输入报错。大家的解答连输入汉字时都报错。

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii > 0 And KeyAscii <> 8 Then
        KeyAscii = 0
        MsgBox "输入错误!"
    End If
End Sub
只能输入汉字了~~

Answer 2

这个不行么？？
Private Sub Text1_KeyPress(KeyAscii As Integer)
'允许汉字、字符、数字及汉字中的字符
    If (KeyAscii >= 33 And KeyAscii <= 47) Or _
    (KeyAscii >= 58 And KeyAscii <= 65) Or _
    (KeyAscii >= 91 And KeyAscii <= 96) Or _
    (KeyAscii >= 123 And KeyAscii <= 126) Then MsgBox "aa"
    Me.Caption = KeyAscii
End Sub

Answer 3

Private Sub Text1_KeyPress(KeyAscii As Integer)
'允许汉字、字符、数字及汉字中的标点符号
    If (KeyAscii >= 33 And KeyAscii <= 47) Or _
    (KeyAscii >= 58 And KeyAscii <= 65) Or _
    (KeyAscii >= 91 And KeyAscii <= 96) Or _
    (KeyAscii >= 123 And KeyAscii <= 126) Then MsgBox "aa"
End Sub

Answer 4

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii >= 33 And KeyAscii <= 47) Or _
    (KeyAscii >= 58 And KeyAscii <= 65) Or _
    (KeyAscii >= 91 And KeyAscii <= 96) Or _
    (KeyAscii >= 123 And KeyAscii <= 126) Then MsgBox "aa"
    Me.Caption = KeyAscii
End Sub