? ? ? ? 在做完學生信息管理時，我首先優化的就是一些文本框的限制了。就比如文本框的限制字符，以及字符的長度。

? ? ? ? 限制一些非法字符的使用，比如再添加課程時是不能添加數字的。還要顯示控件的輸入長度。

在給文本框加限制的時候必須的熟知ASCLL碼表。

?

下面就來說一下文本框的限制吧：

1.文本框中只能輸入數字和小數還有刪除鍵

---

If KeyAscii <> Asc(".") And (KeyAscii <> 8) And (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) ThenKeyAscii = 0End If

2.只能輸入漢字和刪除鍵

---

Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 ThenElseKeyAscii = 0End If End Sub

3.只能輸入漢字和數字

---

If ((KeyAscii <= 57 And KeyAscii >= 48) Or (KeyAscii <= -3652 And KeyAscii >= -20319) Or KeyAscii = 8) = False Then KeyAscii = 0

4.只能輸入英文字母和數字

---

Private Sub Text1_KeyPress(KeyAscii As Integer) If ((KeyAscii >= 48 And KeyAscii <= 57) Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122)) = False Then KeyAscii = 0 End Sub

5.只能輸入數字（學號或者電話號碼）

---

If KeyAscii <> 8 And (KeyAscii < 48 Or KeyAscii > 57) ThenKeyAscii = 0end if

6.只能輸入字母和漢字（姓名）

---

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) ThenElseMsgBox "姓名由字母和漢字組成", vbOKOnly + vbExclamation, "警告"KeyAscii = 0txtName.SelStart = 0txtName.SelLength = Len(txtName.Text)End IfEnd Sub

文本框限制字符大概就是這樣幾種，幾乎都能用到。說了文本框字符的限制再來說一下文本框長度的限制。

1.可以在數據庫里面修改

2.可以寫入代碼

相對應的文本框.maxlength=##(想輸入多少字符)

?

以上是我對文本框限制所做的整理，如有整理不完整，請同學們斧正。

總結

以上是生活随笔為你收集整理的学生优化--文本框限制的全部內容，希望文章能夠幫你解決所遇到的問題。

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