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

前言：

 

     讲述完所有窗体的逻辑顺序，这个系统也就大概完成了，接下来我们要做的就是对这个系统进行优化，把会出现的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 If
End Sub

 

总结：

 

       

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