在學習 “學生資訊管理系統” 之前，我還不知道什麼是優化，那時候的我一臉茫然，那時候的我年少無知，那時候的我...

哈哈哈好了接下來來總結下 學生系統的優化

  我的系統很多優化都是參照同學們和師哥師姐的部落格而優化的，這也不能說是抄襲吧是吧，這就是借鑑和互相學習的過程，我們這個階段最多的就是借鑑和學習，獨立寫程式碼還需要一個過程，不過這個過程也不遙遠，也不漫長，因為學習我們學習的過程是快樂而充實的，話不多說,直接上乾貨。

一.  限制框輸入內容：

 Private Sub txtUserName_Click( )              ’限制使用者名稱文字框輸入字數
     If Len(txtUserName) > 9 Then
     MsgBox "你已經輸入了10個數字，已到最大字元數！"
     End If
  Label5.Caption = Len(txtUserName.Text) & "/10"         '點選文字框會顯示輸入的字數
    
End Sub
 

  在我們命令Private Sub txtUserName_Click時候，設定Label5.Caption = Len(txtUserName.Text) & "/10" 顯示輸入字元字數的時候，還得手動點選下才會顯示（這是從網上借鑑的程式碼，有不足的地方），手動點選會麻煩，所謂優化我們就是要從使用者的角度出發去設計方便使用者的軟體，所以我們把 “Click” 改成 Change事件，該事件作用就是發生改變觸發，當你在文字框中輸入字元的時候文字框就會自動顯示你輸入的字數！

Private Sub txtUserName_Change

當我們輸入以下程式碼就會限制最多字元時候：


  注意：     If Len(txtUserName) > 9 Then       ’這裡要比顯示少一個數。
                             MsgBox "你已經輸入了10個數字，已到最大字元數！" 

             ’當你要最多輸入10個字元的時候這裡要寫If Len(txtUserName) > 9 Then     ,這樣你在輸入10字元的時候就會出來提示最多輸入10個字元
 

如輸入

If Len(txtUserName) > 10 Then  

限制10個字元的時候你在文字框輸入11個它才會出來提示。

   然後把學生管理系統中的每一個文字框都視情況而優化限制字元。

二：密碼限制輸入三次：

程式碼如下：     

miCount = miCount + 1
       
        If miCount = 3 Then
       
            Me.Hide
           
             If miCount = 1 Then
        MsgBox "您還有兩次機會！", 48, "警告"
    Exit Sub
    End If
     
    If miCount = 2 Then
        MsgBox "您還有一次機會！", 48, "警告"
    Exit Sub
    End If
   
    If miCount = 3 Then
        MsgBox "三次輸入密碼不正確，即將關閉程式！", 48, "警告"
        Me.Hide
    End If 
    Exit Sub


        End If
    Exit Sub
End Sub
 

這次就先介紹到這裡，如若有不足，請多多指教！