学生系统优化篇（二）

前言

**学生最复杂的不是调错，是优化！**

一，限制只能输入数字

Private Sub txtclassno_KeyPress(KeyAscii As Integer)
If KeyAscii >= 33 Then
If KeyAscii <= vbKey9 And KeyAscii >= vbKey0 Then
Else
KeyAscii = 0
MsgBox "请输入数字！"
End If
End If
End Sub

二，限制不能输入数字

Private Sub Txtname_KeyPress(KeyAscii As Integer)   '姓名不能输入数字
    If (KeyAscii >= 48 And KeyAscii <= 57) Then
        MsgBox "不允许输入数字", vbOKOnly + vbExclamation, "警告"
        KeyAscii = 0        '键盘不能用
    End If
End Sub

三，复选框只能选择，禁止输入

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

四，修改密码界面优化

在修改密码界面中，会让你输入你修改的密码然后再一次确认密码，可以再加上一个输入原密码，当第一次输入新密码而没有确认密码时，会有提示，两次密码输入不一样时，会有不一样的提示。

这是我对代码做的修改。

五，设置课程优化

当你设置课程的时候，如果按照源码运行的话，你点击设置课程按钮或者是向右箭头按钮给各年级添加课程的时候，他会重复添加你之前添加的课程，我对这一bug做出了修改，代码如下：

Private Sub listAllcourse_Click()
Dim selectcourse As Integer
Dim i As Integer             '定义两个整形变量
Dim j As Integer

For selectcourse = 0 To listAllcourse.ListCount - 1
If listAllcourse.Selected(selectcourse) = True Then
    listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
                             ' 往listselectcourse列表中添加课程
    For i = 0 To listSelectcourse.ListCount - 1
    For j = i + 1 To listSelectcourse.ListCount
                             '判断在list列表中是否有相同的名称
    If listSelectcourse.List(i) = listSelectcourse.List(j) Then
    listSelectcourse.RemoveItem j
    MsgBox "已添加此课程！", vbOKOnly, "提示"
    Exit Sub
    End If
    Next j
    Next i
    End If
    Next selectcourse
End Sub

学生的优化，还有一些必不可少的就是那些文本框的输入限制，限制输入的字符，当然，以后还会借鉴其他同学的心得，做出进一步的优化！