【学生信息管理系统】优化篇（四）

前言

为了给用户更好的体验，作为“程序猿”的我们需要不断的优化我们的小程序。在优化过程中，不断的发现问题、解决问题，方可得到很大的提升。

过程

1、在MDI窗体里显示当前日期和时间（运用的控件StatusBar）
1）

Private Sub MDIForm_Load()
    StatusBar1.Panels(1).Text = Date
    StatusBar1.Panels(2).Text = Time
End Sub

在敲完上述代码，本以为大功告成，可谁想运行后只显示登陆的时间，其并不随时间的推移而改变，但是有问题就得去解决，虽说自己的能力范围有限，但是总归是有巨人的，下面是解决方法

Private Sub Timer1_Timer()
StatusBar1.Panels(2).Text = Time
End Sub

2）在一个单元格里显示所有的事件，布局较小（不推荐）

Private Sub MDIForm_Load()
    StatusBar1.Panels(1).Text = Format(Now(), "yyyy-mm-dd hh:mm:ss") & " " & WeekdayName(Weekday(Date))
End Sub

ps:可能有解决方法，暂未研究，想学习的小可爱们可以研究一下

2、在StatusBar控件上显示文字的动画效果

Private Sub Timerl_Timer()
Static strView As String 
    If strView = "" Then 
    strView =〃大米时代〃
Else
    strView = Mid(strView, 2) & Left(strView, 1) 
End If
    StatusBarl. Panels(l). Text = strView 
End Sub

3、MDI子窗体居中显示

Private Sub Form_Load()
    With Me
      .BorderStyle = 0
      .Left = fMainForm.ScaleWidth / 2 - .Width / 2
      .Top = fMainForm.ScaleHeight / 2 - .Height / 2
    End With
End Sub

4、修改密码时，新密码和旧密码不能一样

’新旧密码不能一样
Private Sub Textl_Change(Index As Integer)
    If Textl(O). Text = Textl(l). Text Then
        MsgBox 〃新密码不能和原密码一样丨〃，vbOKOnly + vbExclamation,"警告！" 
        Textl(0). Text =""
        Textl(1). Text =""
        Textl (2). Text =""
    End If
End Sub

以上就是最近的收获，如有补充，不吝赐教~

小结

学习学习学习，重要的事情说三遍！