学生管理系统优化（一）添加用户优化和文本框内容限定

第一个优化

添加用户里面，输入密码，第一个空输入密码，第二个空空着，弹出的警告是“两次输入密码不一样，请确认！” 你i要的做是如果第二遍输入密码的时候，没输入，得弹出请输入密码！

这个是怎么做到的呢，这是一个语句先后判断的问题，点确定的时候，让程序先判断是否为空，把这句话放在前面，别放在判断密码的后面。

 If Text2.Text = "" Or Text3.Text = "" Then
            MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"
            Text2.SetFocus
            Text2.Text = ""
            Text3.Text = ""
        
    Else                                                    '判断输入的密码是否为空
        If Trim(Text2.Text) <> Trim(Text3.Text) Then      '判断两次密码是否一致
        MsgBox "两次输入密码不一样，请确认！", vbOKOnly + vbExclamation, "警告"
        Text2.SetFocus
        Text2.Text = ""
        Text3.Text = ""
        
        Exit Sub

end if

第二个优化

就是如何限制文本框的输入内容，例如 姓名后面的文本框

你怎么能限制它 只能输入 数字，不能输入乱七八糟的字母符号什么的。下面这串代码就能实现！

If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If

限制特殊字符的代码

If (KeyAscii >= 33 And KeyAscii <= 47) Or (KeyAscii >= 58 And KeyAscii <= 64) Or (KeyAscii >= 91 And KeyAscii <= 96) Or (KeyAscii >= 123 And KeyAscii <= 126) Then
      KeyAscii = 0
      MsgBox "不支持特殊字符输入！", vbOKCancel, "提示"
      End If

第三个优化

确定按钮 按回车就能生效，改一下 按钮的default 属性就行了。

第四个优化

限制文本框输入的长度   文本框有个MaxLength 属性  把他改成你需要的长度就可以了