机房收费系统——优化

其实，机房收费系统的优化在很多方面是和学生信息管理系统是一样，但是也有很多事不一样的

先是关于限制文本框输入的内容：

        其实也就是一串代码的事

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

未完……