学生优化--文本框限制
生活随笔
收集整理的這篇文章主要介紹了
学生优化--文本框限制
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
? ? ? ? 在做完學生信息管理時,我首先優化的就是一些文本框的限制了。就比如文本框的限制字符,以及字符的長度。
? ? ? ? 限制一些非法字符的使用,比如再添加課程時是不能添加數字的。還要顯示控件的輸入長度。
在給文本框加限制的時候必須的熟知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=##(想輸入多少字符)
?
以上是我對文本框限制所做的整理,如有整理不完整,請同學們斧正。
總結
以上是生活随笔為你收集整理的学生优化--文本框限制的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: ux体验网站 英国_定义网站图像时的UX
- 下一篇: 小程序 显示细线_精心设计:高密度显示器