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

前言

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

主要内容

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

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

                     窗体的keypreview设为真

(2)添加代码：

Private Sub Form_KeyPress(KeyAscii As Integer)  
    If KeyAscii = 13 Then Command1.Value = True
End Sub

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

Private Sub 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
End Sub

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

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

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

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

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

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

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

Private Sub 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程序设计实现更完美的结合，程序更加完善。