一、文本框限定：

1.限定輸入的字符長度

a.文本框有個MaxLength屬性，輸入自己要限定的數字即可，但是這樣不太理想， 因為這樣輸入后會讓人產生疑惑。

b.利用代碼來限定，當超過限定長度時，彈出警告對話框。

Private Sub txtUserName_Change()If Len(Trim(txtUserName)) > 8 ThenMsgBox "姓名不能超過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.限定特殊字符:

Private Sub txtUserName_Change()If Len(Trim(txtUserName)) > 8 ThenMsgBox "姓名不能超過8個字符，請重新輸入！", vbOKOnly + vbExclamation, "警告"txtUserName = ""End If End Sub

?

這里用到的是IIf函數：根據表達式的值，來返回兩部分中的其中一個。

IIf(expr,truepart,falsepart)

這3個參數都是必要參數，

expr：用來判斷真偽的表達式

truepart：如果expr為true 則返回這部分的值或表達式

falsepart：如果expr為false?則返回這部分的值或表達式

?

4.限定特定字符

Private Sub txtDirector_KeyPress(KeyAscii As Integer)Select Case KeyAsciiCase 8 '限制退格鍵Case Asc("A ") To Asc("Z ")Case Asc("a") To Asc("z")Case Is < 0Case ElseKeyAscii = 0MsgBox "格式錯誤，請輸入漢字或英文", 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 ThenMsgBox "不能粘貼復制", oKOnly + vbExclamation, "警告"txtPassword1.Text = ""End If End Sub

?

?

四、限定成績：

個人的成績不可能小于0，也不能大于某個數（假設為150），否則就是不合理的：

Private Sub txtResult_Change()If Val(txtResult.Text) > 150 Or Val(txtResult.Text) < 0 ThenMsgBox "請輸入成績在0-150范圍內！", vbOKOnly = vbExclamation, "提示"txtResult.Text = ""End If End Sub

?

?

總結

以上是生活随笔為你收集整理的学生系统优化（一）- - 字符限定的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。