VB 状态栏动态显示时间

发布网友发布时间：2022-04-24 21:32

共5个回答

热心网友时间：2022-04-24 23:01

1）在窗体上布置一个StatusBar和一个Timer

注：需要在控件“工具箱”上点鼠标右键-->“部件”--> "Mirosoft Windows Common Controls 6.0 (SP6)"，然后才能看到StatusBar控件。

2）代码

Option Explicit

Private Sub Form_Load()
    ' 定时器的定时间隔为1秒（1000毫秒）
    Timer1.Interval = 1000
    ' 启动定时器
    Timer1.Enabled = True
    ' 显示当前时间
    StatusBar1.Panels(1).Text = Format(Time, "HH:mm:ss")
End Sub

Private Sub Timer1_Timer()
    ' 动态显示时间，每秒刷新一次
    StatusBar1.Panels(1).Text = Format(Time, "HH:mm:ss")
End Sub

热心网友时间：2022-04-25 00:19

VB6.0需要在窗体添加Timer控件和StatusBar 控件来实现状态栏动态显示系统时间。

StatusBar 控件，StatusBar 控件提供窗体，该窗体通常位于父窗体的底部，通过这一窗体，应用程序能显示各种状态数据。StatusBar
最多能被分成 16 个 Panel 对象，这些对象包含在 Panels 集合中。

设置StatusBar 控件的Style = sbrSimple，StatusBar控件仅显示一个大面板。

Timer 控件，通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。

代码实例：

Private Sub Form_Load()

Timer1.Interval = 500

StatusBar1.Style = sbrSimple

End Sub

Private Sub Timer1_Timer()

If StatusBar1.SimpleText <> CStr(Time) Then

StatusBar1.SimpleText = Time

End If

End Sub

热心网友时间：2022-04-25 01:54

设置状态栏相应的panel的style属性即可。

sbrDate
动态显示日期

sbrTime
动态显示时间

热心网友时间：2022-04-25 03:45

哪个动态栏？
用时钟控件，给你参考一下：
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub

热心网友时间：2022-04-25 05:53

可在窗格样式里面选：6-sbrDate 或 5-sbrTime。