VB设置不允许输入除数字外的字符

来源：百度知道 编辑：UC知道 时间：2024/07/04 20:09:19
如题如何VB设置不允许输入除数字外的字符,请不必太细致的讲解下,如果不行的话给出代码,随便说两句就可以了~~`
谁能帮我写下代码,不要光说,我VB不是很厉害.....

这里我举text1.text文本框为例(用到了keydown事件)
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 8 Then '为了使程序不会死循环 8为backspace健
Exit Sub
Else
If KeyCode >= 48 And KeyCode <= 57 Then '判断是否为数字
Else
SendKeys "{BACKSPACE}" '不为数字的话删除
End If
End If
End Sub

偶来给个补充.
48-57
96-105
都是数字
下面是Ascll码表

vbKey0 48 0 键
-------------------------------------------------------------------
vbKey1 49 1 键
-------------------------------------------------------------------
vbKey2 50 2 键
-------------------------------------------------------------------
vbKey3 51 3 键
-------------------------------------------------------------------
vbKey4 52 4 键
-------------------------------------------------------------------
vbKey5 53 5 键
-------------------------------------------------------------------