学生管理系统（七）---优化

前言：

     讲述完所有窗体的逻辑顺序，这个系统也就大概完成了，接下来我们要做的就是对这个系统进行优化，把会出现的bug解决掉，让整个界面更美观一些，多为用户考虑一些。

内容：

       1、输入的密码为 *

     更改文本框的passwordchar属性为“*”即可。

     2、tabindex属性

      更改tabindex，然后按tab键的时候就会根据TabIndex的顺序往下走。可以调整TabIndex属性，方便用户输入。

     3、窗体的borderstyle属性

      如果您想把窗体的最大最小化按钮去掉，这个时候您只需要调整窗体的这个属性就可以了，而且还可以更改边框的样式以及去除窗体上的图标。同时，去除窗体的图标还有一种办法，就是代码：

    Me.Icon = LoadPicture("")

        4、状态栏随着窗体变动而改变大小

      右击状态栏，属性，窗格，自动调整大小

     5、限制文本框的长度，限制只能输入数字和字母

      文本框的change事件下

    Dim bytes() As Byte    Dim str As String

    str = txtUserName    bytes = StrConv(str, vbFromUnicode)

    If UBound(bytes) > 9 Then        ReDim Preserve bytes(0 To 9)        Debug.Print StrConv(bytes, vbUnicode)        txtUserName = StrConv(bytes, vbUnicode)    End if

    也可以通过文本框的MaxLength属性来限制其长度。

    Dim i As Variant    Dim S As Variant            For i = 1 To Len(txtUserName)        S = Mid(txtUserName, i, 1)        If S Like "[!0-9]" And S Like "[!A-Z]" And S Like "[!a-z]" Then        txtUserName = Replace(txtUserName, S, "")        End If       Next

       6、combobox只能选择而不能输入

      设置其style属性为2，但是这个时候有一个问题就是：此时的combobox为只读，无法用到它的text属性了，所以我们可以换一种方式：添加一行代码就可以了！

Private Sub comboCoursetype_KeyPress(KeyAscii As Integer)  KeyAscii = 0 End Sub

       7、设置文本框带滚动条

 

       文本框的MultiLine属性改为True，把ScrollBars属性改为2（垂直滚动条）

     8、所有窗体居中显示

       其实只要更改窗体的StarUpPosition属性为“所有者中心即可”，但是有事会出现“无效属性值的情况”，这个时候你只要加代码即可。

Private Sub Form_Resize()     On Error Resume Next     If Me.Width >= FrmMain.ScaleWidth Then             Me.Width = FrmMain.ScaleWidth        Me.Left = 0             Else             Me.Left = (FrmMain.ScaleWidth - Me.Width) / 2             End If          If Me.Height >= FrmMain.ScaleHeight Then            Me.Height = FrmMain.ScaleHeight        Me.Top = 0             Else            Me.Top = (FrmMain.ScaleHeight - Me.Height) / 2             End If     End Sub

     9、禁止文本框输入特殊字符

Private Sub txtCoursedes_KeyPress(KeyAscii As Integer)    Dim nTemp As String        nTemp = "#$%^&*][{}/+-'“”.。，/、》《'；，"   '禁止输入的字符    If InStr(1, nTemp, Chr(KeyAscii)) <> 0 Then        KeyAscii = 0            End IfEnd Sub

总结：

       

        这是优化需要注意的一些关于属性和代码的地方，现在看来很简单的东西，可是当时折磨了好多天哦！