Question

VB限制文本框只能输入数字

Answer 1

1、新建一个标准EXE程序。

2、 绘制界面，添加一个 Textbox 控件，改名为 txbNumber。

3、 编写代码在代码窗口中，添加 txbNumber_KeyPress 事件。

4、输入以下语句： If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0这条语句用来判断输入的字符是否在0-9的范围，如果不在这个范围，就把这个输入的字符屏蔽掉。

5、 但这么做会产生一个问题，就是使用BackSpace删除字符的时候，由于按键被屏蔽，无法删除只要在上面的语句前在添加一条语句：If KeyAscii = 8 Then Exit Sub

6、 调试运行按F5，在文本框中输入任意字符，可以看到只有数字能显示在文本框中。按退格键，字符也能正常删除。