Question

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

界面就如上图
可能错误很多，麻烦一一指正
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

Answer 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

追问

不可行，连label的页面都消失了

追答

好了，错误在这里，你默认没有设置timer控件的触发时间，程序开始后Form_Load()事件也没有对计时器进行设置，这是计时器不会触发，因此Timer1_Timer()里面的代码永远不会执行。改正如下：
Private Sub Form_Load()
Label1.Caption = Format(Now(), "hh时mm分ss秒")
Timer1.Interval = 1000 <----这行挪到这里
Timer1.Enabled = True
End Sub

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

刚刚我的回答是凭感觉乱答的，不好意思让你见笑了~
这段代码我调试通过，你试一下

追问

真的耶，是对的，多谢，不过我还是不是特别明白触发这一部分的代码是指Timer1.Enabled = True吗？还是Timer1.Interval = 1000 Timer1.Enabled = True 这2部分合起来会触发计时器？

追答

严格来说是只有Timer1.Enabled = True，Timer1.Interval是讲这个计时器多少时间触发一次。
但是因为你添加时间控件后没有进行设置，默认的Timer1.Interval的值是0，也就是说不触发。
其实这段程序你可以把Timer1.Interval语句去掉，然后在添加的时间控件的属性栏进行设置，设置好以后就不需要那个语句了。

Answer 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