第1个回答 2015-06-26
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属性来限制
楼上的方法同样可行。