VB中如何限制ASCII码

来源：百度知道 编辑：UC知道 时间：2024/06/17 07:33:21
用VB制作一个表格如何只允许里面只能填写数字，而填写其他汉字拼音之类则提示错误输入？
有人告诉我是通过限制ASCII码，但是我不懂如何限制？？
有VB高手交下吗？谢过了！！

在TextBox的KeyPress事件中加入代码
Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >=48 And KeyAscii <=57 Then
KeyAscii = 0
Else
Msgbox "Error"
End If

End Sub

if asc(x)<48 or asc(x)>57 then
msgbox "输入的不是数字！"
exit sub
end if

其实你不需要用ascii来做。
用Isnumeric(string)
就可以 保障输入的是数字了。
比如if isnumberic(strAns) = false then
msgbox"请输入数字“
end if

在keypress事件里写代码:
比如是textbox

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub '退格键放过
If KeyAscii = 46 Then Exit Sub '小数点放过
If KeyAscii > 57 Or KeyAscii < 48 Then KeyAscii = 0 '限制不是数值键

End Sub

楼上都说的差不多了,但是还要注意,不要屏蔽了CTRL+C,CTRL+V等一些能用到的键