学生系统优化（一）- - 字符限定

矫情吗；* 2022-03-21 06:11 155阅读 0赞

一、文本框限定：

1.限定输入的字符长度

a.文本框有个MaxLength属性，输入自己要限定的数字即可，但是这样不太理想， 因为这样输入后会让人产生疑惑。

b.利用代码来限定，当超过限定长度时，弹出警告对话框。

Private Sub txtUserName_Change()
      If Len(Trim(txtUserName)) > 8 Then
         MsgBox "姓名不能超过8个字符，请重新输入！", vbOKOnly + vbExclamation, "警告"
         txtUserName = ""
      End If
    End Sub

Trim函数是消除字符串的空格，Len函数是计算字符串的长度。

2.限定输入的字符类型:

Private Sub txtSID_KeyPress(KeyAscii As Integer)
      Const xStr As String = "0123456789"                '只能输入数字
      KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
    End Sub

3.限定特殊字符:

这里用到的是***IIf函数***：根据表达式的值，来返回两部分中的其中一个。

IIf(expr,truepart,falsepart)

这3个参数都是必要参数，

expr：用来判断真伪的表达式

truepart：如果expr为true 则返回这部分的值或表达式

falsepart：如果expr为false 则返回这部分的值或表达式

4.限定特定字符

Private Sub txtDirector_KeyPress(KeyAscii As Integer)
      Select Case KeyAscii
        Case 8          '限制退格键
        Case Asc("A ") To Asc("Z ")
        Case Asc("a") To Asc("z")
        Case Is < 0
        Case Else
          KeyAscii = 0
          MsgBox "格式错误，请输入汉字或英文", oKOnly + vbExclamation, "警告"
          txtDirector.Text = ""
      End Select
    End Sub

二、下拉框限定：

Combox限定不能键盘输入，只能选择下拉框里面的内容：

Private Sub comboGrade_KeyPress(KeyAscii As Integer)
      KeyAscii = 0  '限制键盘不能输入内容
    End Sub

三、限定不能复制粘贴：

在第二次输入新密码的时候，不能复制粘贴：

Private Sub txtPassword1_KeyDown(KeyCode As Integer, Shift As Integer)
        If (KeyCode = 86 Or KeyCode = 67 Or KeyCode = 88) And Shift = 2 Then
            MsgBox "不能粘贴复制", oKOnly + vbExclamation, "警告"
            txtPassword1.Text = ""
        End If
    End Sub

四、限定成绩：

个人的成绩不可能小于0，也不能大于某个数（假设为150），否则就是不合理的：

Private Sub txtResult_Change()
      If Val(txtResult.Text) > 150 Or Val(txtResult.Text) < 0 Then
         MsgBox "请输入成绩在0-150范围内！", vbOKOnly = vbExclamation, "提示"
         txtResult.Text = ""
      End If
    End Sub