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

Question

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

Answer 1

Option ExplicitPrivate Sub Form_Load()
  Me.StatusBar1.Panels(1).Text = Now
End Sub
可以显示秒的啊

Answer 2

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

Answer 3

加一个 Timer 控件，将Timer 的 Interval 设置成 1000
加入下列代码：（例如Timer1）   Private Sub Timer1_Timer()
   
      StatusBar1.Panels(1).Text = Format(Now, "HH:mm:ss")
   
   End Sub

Answer 4

如果要秒就要写代码：不要定时器：
dim ss
ss=timer+1
do 
   if ss < timer + 1 then 
       Me.StatusBar1.Panels(1).Text = Now
   end if
   doevents
loop负何要重哦。

Answer 5

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