学生信息管理系统之ASCII问题汇总

前言
学生信息管理的优化阶段，需要注意很多由ASCII限制字符的问题，我汇总了一下。

首先附上一张ASCII对照表：



主要内容
1、登录界面的用户名禁止输入特殊字符
Private Sub txtusername_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then Exit Sub

If (KeyAscii >= 0 And KeyAscii <= 47) Or (KeyAscii >= 58 And KeyAscii <= 64) Or (KeyAscii >= 91 And KeyAscii <= 96) Or (KeyAscii >= 123 And KeyAscii <= 127) Then KeyAscii = 0

End Sub

2、文本框中只允许输入数字
（1）设置属性：text属性中的maxlength限制输入最大字符数
（2）添加代码：禁止非数字的输入Private Sub txtSID_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
'backspace可用
Select Case KeyAscii
Case 48 To 57, 13
'允许输入数字，回车可用
Case Else
KeyAscii = 0
End Select
End Sub

3、comboBox控件：不能自行输入，只能下拉选择
（1）设置属性：comboBox的style设置为2-DropdownList
（2）添加代码：combox的style设置为0-dropdown comboprivate sub comboBox_keyPress(keyAscii as integer)
keyAscii=0
End Sub
4、文本框中只允许输入文本
Private Sub txtName_KeyPress(KeyAscii As Integer)
If (KeyAscii < 0) Or (KeyAscii >= 65 And KeyAscii <= 90) Or(KeyAscii >= 97 And KeyAscii <= 122) Or (KeyAscii = 8) Then
Else
MsgBox "姓名由字母和汉字组成", vbOKOnly,"提示"
KeyAscii = 0
txtName.SelStart = 0
txtName.SelLength = Len(txtName.Text)
End If
End Sub