學(xué)生系統(tǒng)的代碼終于敲完，本以為優(yōu)化就是幾個(gè)文本框設(shè)置一下，改一下背景就完事了，結(jié)果是我太幼稚了，優(yōu)化的內(nèi)容遠(yuǎn)遠(yuǎn)不止我想的那些，還有很多很多，不過很幸運(yùn)，我站在了巨人的肩膀上前行，感謝前面的巨人們，下面我也來分享一下我的匯總吧。

注：以下有一些代碼是我自創(chuàng)出來的，比自己找的那些簡單一些，也鼓勵小伙伴們自己玩一下哦^_^

一、如何限制文本框輸入內(nèi)容的長度

txtClassno.MaxLength = 10

二、如何只輸入數(shù)字和刪除鍵

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

三、如何只輸入數(shù)字和小數(shù)和刪除鍵

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

四、如何限制文本框輸入內(nèi)容的數(shù)值范圍

If Val(txtClassno.Text) > 2147483647 Or Val(txtClassno.Text) < 1ThenMsgBox "輸入數(shù)值在1到2147483647范圍內(nèi)"txtClassno.SetFocusExit SubEnd If

五、文本框內(nèi)只能輸入文字及刪除鍵

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

六、只能輸入數(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

七、只能輸入數(shù)字和文字

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

八、只能輸入文字，英文和空格

Private Sub txtName_Change()txtName.MaxLength = 5 End SubPrivate Sub txtName_KeyPress(KeyAscii As Integer)If ((KeyAscii <= -3652 And KeyAscii >= -20319) Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Or KeyAscii = 32 Or KeyAscii = 8) = False ThenKeyAscii = 0End If End Sub

九、不同日期文本框的判斷

利用VB中的DTPicker日期控件，這個(gè)是英杰分享給我的，嘻嘻，站在巨人的肩膀上前行就是這么高效。
添加過程：工具-部件-控件-“Microsoft Windows common control2.6.0”-應(yīng)用-確定
選擇DTPicker控件進(jìn)行添加，效果如下：

而此控件的取值與Text不同的是它以Value屬性來取值，所以代碼中跟著兩個(gè)文本框有關(guān)的text屬性都需要改為Value屬性他才會取值。
那日期如何判斷呢，代碼如下：

Dim Borndate As DateDim Rudate As DateBorndate = Trim(txtBorndate.Value)Rudate = Trim(txtRudate.Value)If Rudate <= Borndate Then '進(jìn)行比較MsgBox "還未出生就入學(xué)了，這么神奇？", vbOKOnly + vbInformation, "警告"txtRudate.SetFocusExit SubEnd If

十、日期文本框日期判定

以下代碼是我自己編寫的哦，沒想到竟然能用，而且內(nèi)容很少，邏輯也很棒，好開心，不過也要感謝那些走在我們前面分享給我們干貨的小伙伴們哦，不然我都不知道有DTPicker這個(gè)控件。
代碼如下：

dim a as integera = txtBorndate.YearIf a - 1753 < 0 ThenMsgBox "出生日期請輸入1753年以后的年份！", vbOKOnly + vbExclamation, "警告"txtBorndate.SetFocusExit SubEnd If

十一、僅限3次密碼登錄

If miCount = 1 ThenMsgBox "您還有兩次機(jī)會哦^_^", 48, "溫馨提示："Exit SubEnd IfIf miCount = 2 ThenMsgBox "您還有一次機(jī)會哦^_^", 48, "溫馨提示："Exit SubEnd IfIf miCount = 3 ThenMsgBox "很遺憾，程序即將關(guān)閉!", 48, "溫馨提示:"EndEnd If

十二、退出系統(tǒng)提示

Private Sub exitMenu_Click()Dim a As Stringa = MsgBox("確定退出系統(tǒng)嗎？", vbOKCancel, "關(guān)閉程序")If a = vbOK ThenEndCancel = FalseEnd IfEnd Sub

OK，基本上用的最多的就是以上這些了吧，希望我也可以成為幫助別人的巨人，前方的路還很長，不過我們有巨人同行怕什么，繼續(xù)加油吧^_^

總結(jié)

以上是生活随笔為你收集整理的学生信息管理系统之优化篇的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

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