怎样在VB编程中插入当前日期和时间?

先插入一个Timer控件,将其Interval属性设置为1000,

再插入一个Label控件,其属性你自己设置,

Timer1的代码:Label1.Caption = Date &" " &Time

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

---