? ? ? ? 在做完學(xué)生信息管理時(shí)，我首先優(yōu)化的就是一些文本框的限制了。就比如文本框的限制字符，以及字符的長(zhǎng)度。

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

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

?

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

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

---

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.只能輸入漢字和數(shù)字

---

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

4.只能輸入英文字母和數(shù)字

---

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.只能輸入數(shù)字（學(xué)號(hào)或者電話號(hào)碼）

---

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

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

1.可以在數(shù)據(jù)庫(kù)里面修改

2.可以寫入代碼

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

?

以上是我對(duì)文本框限制所做的整理，如有整理不完整，請(qǐng)同學(xué)們斧正。

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。