Question

在VB中怎么在StatusBar中设置时间日期？

和系统显示时间一致

Answer 1

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

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

• 缺省设置StatusBar 控件的StatusBar1.Style = sbrNormal，StatusBar 控件显示所有的 Panel 对象。

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

• 代码实例：

  Private Sub Form_Load()

     Timer1.Interval = 500

     Dim I As Integer

     For I = 1 To 2

        StatusBar1.Panels.Add

     Next I

     StatusBar1.Style = sbrNormal 

   Label1.Visible = False

End Sub





Private Sub Form_Resize()

   With StatusBar1.Panels

      .Item(1).Style = sbrDate   '日期

      .Item(2).Style = sbrTime   'Caps 锁定

   End With

End Sub




Private Sub Timer1_Timer()

    If Label1.Caption <> CStr(Time) Then

        Label1.Caption = Time

        Form_Resize

    End If

End Sub

Answer 2

选中Statusbar,然后右键选择属性，属性窗口出来之后点击窗格项，在下面的“样式”栏中选择5-sbrTime即可。

Answer 3

'新建一个Label控件``输入代码
Private Sub Form_Load()
Label1.Caption = Date
End Sub