前言
为了给用户更好的体验,作为“程序猿”的我们需要不断的优化我们的小程序。在优化过程中,不断的发现问题、解决问题,方可得到很大的提升。
过程
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
以上就是最近的收获,如有补充,不吝赐教~
小结
学习学习学习,重要的事情说三遍!