限制输入

在学生系统和机房收费系统中，很多文本框和下拉框控件都用到了限制输入的方式，例如：有些控件只允许输入数字，有的控件不允许输入任何内容，还有的是限制输入内容的大小……稍稍总结一下目前所遇到的限制输入☺

以机房收费系统中的学生查看余额窗口为例

“学号”等输入框仅用于显示内容，不允许输入

Private Sub txtSID_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

“输入卡号”文本框仅可输入数字和删除键

'只输入删除键和数字
Private Sub txtcardno_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 And (KeyAscii < 48 Or KeyAscii > 57) Then
     KeyAscii = 0
     End If
End Sub

“输入卡号”文本框仅可输入五位

可以在属性框中设置其MaxLength属性

补充

KeyAscii值：

48~57     '只能输入数字

60~62     '只能输入<=>

65~90     '只能输入大写字母

97~122   '只能输入小写字母

8              '只能输入退格键

0              '不能输入