VB中让一个文本框只能输入一个数字该怎么设置

Question

如题所述

Answer 1

Private
Sub
Text1_KeyPress(
KeyAscii
As
Integer)
'按键限制
select
case
KeyAscii
case
8
'退格键
'可以不输入处理代码
case
13
'回车键
'可以不输入处理代码
case
27
'ESC键
'可以不输入处理代码
case
48
to
57
'输入的是数字
case
else
KeyAscii=0
'不是以上的全部取消按键
end
select
输入长度限制可以通过设置TEXT控件的MaxLength属性来限制
楼上的方法同样可行

Answer 2

Private
Sub
Text1_KeyPress(
KeyAscii
As
Integer)
'按键限制
select
case
KeyAscii
case
8
'退格键
'可以不输入处理代码
case
13
'回车键
'可以不输入处理代码
case
27
'ESC键
'可以不输入处理代码
case
48
to
57
'输入的是数字
case
else
KeyAscii=0
'不是以上的全部取消按键
end
select
输入长度限制可以通过设置TEXT控件的MaxLength属性来限制
楼上的方法同样可行。

Answer 3

Private
Sub
Text1_KeyPress(
KeyAscii
As
Integer)
If
KeyAscii
<
Asc("0")
Or
KeyAscii
>
Asc("9")
Then
'判断输入的是否是数字
KeyAscii
=
0
'如果不是数字就让输入没有反应
End
If
Private
Sub
Text1_Change
'每一格输满1位数后光标自动到下一格
If
Len(Text1.Text)
=
1
Then
......
end
if