機房收費系統——優化

其實，機房收費系統的優化在很多方面是和學生信息管理系統是一樣，但是也有很多事不一樣的

先是關於限制文本框輸入的內容：

        其實也就是一串代碼的事

Private Sub txtUserName_KeyPress(KeyAscii As Integer)
 '限制輸入內容
   If KeyAscii = 46 And Not CBool(InStr(txtUserName, ".")) Then Exit Sub
   If KeyAscii = 8 Then Exit Sub
   If KeyAscii < 48 Or KeyAscii > 57 Then
      KeyAscii = 0
      MsgBox "請輸入數字！", vbOKOnly + vbExclamation, "提示"
   End If
End Sub

這樣這個問題就解決了。（限制的結果是隻能輸入數字）

再有就是限制文本框輸入長度的問題：當然第一種方法就是修改文本框的MaxLength屬性，修改的結果就是這個屬性值爲多少，最長輸入的內容就是多少；還有另一種方法就是在Change事件中編寫一串代碼：

Private Sub Text2_Change()
    If Text2.Length >= 11 Then       '判斷是否超出長度範圍
       MsgBox "輸入長度超出範圍，請重新輸入", , "提示"
       Text2.Text = ""               '清空文本框內的內容
       Text2.SetFocus                '文本框聚焦
    End If
End Sub

未完……