先在窗体上加上两个控件,一个是label,一个是timer ,设置Timer1的Interval为1000,然后写如下代码:
Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub
这样你就可以看到label的时间每秒变化一次了
Label1.Caption = Now
当然,如果你需要随着时间的变化而变化内容的话,当然需要timer控件了
设置1秒运行一次就好,也就是interval=1000
设置Timer1的Interval为1000。然后复制如下代码:
Private Sub Timer1_Timer()
Timer1.Enabled = True
Label1.Caption = Now
End Sub
楼下说的很好 没有要补充的了
(enable一定要是true)
timer1.interval = 1
label1 = now