机房收费系统（六）优化

前一段时间机房收费系统基本上算是完成了，然后就开始了优化和调BUG 之路。

遇到的问题不少首先就是登录时没有限制输入特殊字符，然后就开始查怎么样限制特殊字符的输入找到了两种方法，一种是限制Ascii码，另一种是限制输入制定的特殊符号，下面我们来看一下第二种

这段代码就是限制了a中的特殊符号，如果还想限制别的特殊符号也可以在a变量中继续添加。

Private Sub txtUserName_Change()    Dim a As String    Dim i As Integer    a = "'!@#$%^&*()_+ """    For i = 1 To 20        txtUserName.Text = Replace(txtUserName.Text, Mid(a, i, 1), "")    NextEnd Sub

第二个优化是ComboBox和TextBox框的可编辑问题，这个问题也很好解决只要限制Ascii码就可以解决

Private Sub Combo2_KeyPress(Index As Integer, KeyAscii As Integer)    KeyAscii = 0End Sub