学生信息系统之优化（一）之ascii码

       学生信息管理系统的最后一个阶段便是界面优化，这一阶段让我们的成果更加完善，是我们学习过程中很重要的一个环节。我在此过程遇到很多问题，下面是一个简单的总结。

1.回车键功能当于单击按钮

(1)设置属性：按钮的default设为真

                     窗体的keypreview设为真

(2)添加代码：

PrivateSubForm_KeyPress(KeyAscii As Integer)  

       If KeyAscii = 13 ThenCommand1.Value = True

End Sub

2. .登陆界面禁止输入特殊字符

PrivateSub txtUserName_KeyPress(KeyAscii As Integer)

     Select Case KeyAscii

            Case 48 To 57

            Case 65 To 90

            Case 97 To 122

            Case 8

            CaseElse

            KeyAscii = 0

     End Select

EndSub

3.comboBox控件：只能用下拉框选择，用户不能自己写入

方法1：属性：ComboBox的Style设为2-DropdownList

方法2：属性：ComboBox的Style设为0，但需要添加如下代码

             PrivateSubCombo1_KeyPress(KeyAscii As Integer)

                       KeyAscii= 0

             EndSub

4. vb中的文本框中只允许输入数字  

(1)设置属性：限制文本框可以输入的最大字符数（MaxLength）

(2)添加代码： 限制ascii码，拒绝非数字、退格、回车的输入       

PrivateSub txtSID_KeyPress(KeyAscii As Integer)  

    If KeyAscii = 8 Then Exit Sub

    Select Case KeyAscii

        Case 48 To 57, 8, 13    

        Case Else

        KeyAscii = 0

    End Select

End Sub

5.vb中的文本框中只允许输入文本

 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

       小结：以上系统优化均涉及到ascii码相关知识，主要通过限制ascii码，使键盘具体键位与VB程序设计实现更完美的结合，程序更加完善。