怎么让VB文本框不能输入字母，其余都可以？

怎么让VB文本框不能输入字母，其余都可以？ 请看清楚 只是不能输入字母 其他包括数字和符号都能输入！

比如类似这样的代码

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
MsgBox "请输入数字", vbOKOnly, "警告"
text1.SetFocus
text1.text=""
End If
End Sub

但是这个是只能输入数字的 我要只是不能输入字母的1

把if keyascii那句换成字母的ascii码区间不就行了,31到什么的

Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Then MsgBox "请输入数字", vbOKOnly, "警告" Text1.SetFocus Text1.Text = "" End If End Sub

小写a ~ z的ascⅡ码是97 - 122

大写A ~ Z的ascⅡ码是65 - 90

esxxsdsf