Question

VB中如何判断text1.text里是否输入的是汉字,或字母,数字.

比如,我想让text1.text里只能输入字母.如果输入的是汉字,或者是数字.就弹出输入错误.请教...

Answer 1

这个需要用Change事件：
Private Sub Text1_Change()
For i = 1 To Len(Text1)
a = Asc(UCase(Mid(Text1, i)))
If a < 65 Or a > 90 Then MsgBox "输入错误！", 48: Exit Sub
Next
End Sub
或配合KeyPress事件使用：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 65 And KeyAscii <= 90 Then Exit Sub
If KeyAscii >= 97 And KeyAscii <= 122 Then Exit Sub
If KeyAscii = 8 Then Exit Sub'退格键，一定要注意这个，否则无法通过退格键来删除。
MsgBox "输入错误！", 48
KeyAscii = 0
End Sub
单纯使用KeyPress是无法实现的，因为“粘贴”只能触发Change而不能触发KeyPress。

Answer 2

Private Sub Text_KeyPress(KeyAscii As Integer)
If (KeyAscii >=Asc("a") and KeyAscii <= Asc("z")) or (KeyAscii >= Asc("A") and KeyAscii <=Asc("Z")) Then
KeyAscii = KeyAscii
else
KeyAscii=0
msgbox "输入错误"
End If
End Sub

Answer 3

Private sub text_KeyPress(KeyAscii as integer)
if (KeyAscii<65) or (KeyAscii>90 and KeyAscii<97) or (KeyAscii>122) then
msgbox "输入的不是字母！",vbokonly,"提示"
endif
end sub