代码如下
Private Sub Form_Load()
StatusBar1.Panels(7).Text = Format(Now(), "yyyy-mm-dd hh:mm:ss") & " " & WeekdayName(Weekday(Date))
End Sub
此代码放在一般的窗体上显示正常,但放在MDI窗体上却无法显示,不知是何原因??????

出错了吗？

发现问题了
应该是
Private Sub MDIForm_Load()
StatusBar1.Panels(7).Text = Format(Now(), "yyyy-mm-dd hh:mm:ss") & " " & WeekdayName(Weekday(Date))
End Sub
而不是
Private Sub Form_Load()
第一次使用MDI窗体,按习惯上写代码,竟然出错!!!!!!!!,无意中在代码窗口中乱点了一下,才发现是MDIForm,而不是Form,这可能新手的代价吧

[此贴子已经被作者于2007-8-14 21:15:34编辑过]

这是个很好的教训

我还没用过Sub MDIForm_Load

在StatusBar控件上显示文字的动画效果
Private Sub Timer1_Timer()
Static strView As String
If strView = "" Then
strView = "软件设计:野鹤飘零 联系:QQ397033281 Email:yehepiaoling@yahoo.com.cn "
Else
strView = Mid(strView, 2) & Left(strView, 1)
End If
StatusBar1.Panels(N).Text = strView(N是索引值)
End Sub
将Timer1的interval设为1000

好啊 。