阿Q吧 > VB要求设计一个数字时钟界面，我已经设计了一部分，不明白为什么完全不动，对计时器很不在行啊，求速答

VB要求设计一个数字时钟界面，我已经设计了一部分，不明白为什么完全不动，对计时器很不在行啊，求速答

2025-03-24 05:34:29

推荐回答（2个）

回答1：

Private Sub Form_Load()
程序改正如下：
Label1.Caption = Format(Now(), "hh时mm分ss秒") <----- 此行去掉！
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 1000
Label1.Caption = Format(Now(), "hh时mm分ss秒")
End Sub

回答2：

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

Private Sub Timer1_Timer()
Label1.Caption = Format(Now(), "hh时mm分ss秒")
End Sub