vb做一个控件显示当前，时间每隔1秒变换1次

2024-11-26 16:43:05

推荐回答（4个）

回答1：

利用时间控件timer，再插入一个label控件，用来显示时间；
将timer的时间间隔设为1000毫秒，即1秒。Now为显示当前时间
Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

回答2：

讲一个每隔两秒变化一次的

在 form里直接设置

Private Sub Form_Load()
  Label1.Caption = Time
  timer1.Interval=2000
End Sub
Private Sub Timer1_Timer()
  Label1.Caption = Time
End Sub

完美！

回答3：

Private Sub Form_Load()
Label1.Caption = Now
Timer1.Interval = 1000
End Sub

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

回答4：

'补充一种不使用timer的方法：
Do 'While 设置退出的条件，否则一直运行
Label1.Caption = Format(Now(), "hh:mm:ss")
DoEvents
Loop