如何判断输入的是中文、英文和数字？

[heyinglin]

请问如何判断textbox中输入的是中文、英文还是数字？谢谢！！！

[tztz520]

Private Sub Text1_KeyPress(KeyAscii As Integer)
'你看一下这个KeyAscii 就知道了
End Sub

[cindytsai]

判断数字：IsNumeric(Text1.Text)

[happy_sea]

Private Sub Command1_Click()
Select Case Asc(Text1.Text)
Case 48 To 57
MsgBox "数字"
Case Is < 0
MsgBox "中文"
Case Else
MsgBox "英文"
End Select
End Sub
以上代码判断text1中第一个字符，如果要判断其他的字符，只需将text1.text改为相应表达式即可。

[wwqna]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 0 Then
MsgBox "输入的是中文"
ElseIf KeyAscii >= Asc("0") And KeyAscii <= "9" Then
MsgBox "输入是的数字"
ElseIf KeyAscii >= "a" And KeyAscii <= "z" Or _
KeyAscii >= "A" And KeyAscii <= "Z" Then
MsgBox "输入是的字母"
End If
End Sub

[heyinglin]

谢谢大家！

[happy_sea]

wwqna(york)的代码比较好。

[myyzy]

利用输入数据的 Ascii 码判断就可以

[cindytsai]

还可以啊

[vansoft]

为什么大这都喜欢用ASCII码来判断呢？
难道大家都不知道like函数？

交流MSN：[e-mail]

[yugo_xu]

那如果是字符串也可以用like吗？？？

[tj123]

判断为非数字not IsNumeric(Text1.Text)

[pengpeng2004]

up