不用定时器,怎样才能在状态栏显示时间包括秒，如"HH:MM:SS"，设置状态栏的属性为什么不会显示秒？谢谢。

[wrongt]

不用定时器,怎样才能在状态栏显示时间包括秒，如"HH:MM:SS"，设置状态栏的属性为什么不会显示秒？谢谢。

[daisy8675]

Option Explicit

Private Sub Form_Load()
Me.StatusBar1.Panels(1).Text = Now
End Sub


可以显示秒的啊

[wrongt]

Now 包括了日期，怎样动态显示"HH:MM:SS"

[szmickylee]

加一个 Timer 控件，将Timer 的 Interval 设置成 1000
加入下列代码：（例如Timer1）

Private Sub Timer1_Timer()

StatusBar1.Panels(1).Text = Format(Now, "HH:mm:ss")

End Sub

[of123]

显示秒无疑会加大系统的负荷。用状态栏本身的窗格属性来显示时间更好些，虽然没有秒。

[kweis]

如果要秒就要写代码：

不要定时器：
dim ss
ss=timer+1
do
if ss < timer + 1 then
Me.StatusBar1.Panels(1).Text = Now
end if
doevents
loop

负何要重哦。

[an8088]

兄弟 有直接可以用的控件的
StatusBar 控件 可以帮你
右击属性 -》窗格-》添加窗格-》分别在窗格索引 中的样式中选择 你要显示时间 还有日期 等等
不需要用到任何代码