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

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属性来限制
楼上的方法同样可行

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属性来限制
楼上的方法同样可行。

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

MaxLength = 1