Question

使用VB6.0，怎么在一个标签框内使用计时器控件同时显示当前日期和时间？

Answer 1

Private Sub Form_Load()
Timer1.Interval = 50
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim t_date As String
Dim t_time As String
t_date = Format(Date, "yyyy-mm-dd")
t_time = Format(Time, "hh:mm:ss")
Label1.Caption = t_date & " " & t_time
End Sub

Answer 2

其实还有一个简便方法：
在窗体放一个label、timer
把以下代码放在timer下面
Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

Answer 3

Private Sub Timer1_Timer()
label1.caption=date & " " & time
End Sub

Answer 4

Private Sub label1_click()
Label1.Caption = Now
End Sub

Answer 5

interval 可以为1000（ms）