因此,我需要在表单上显示一个实时时钟,但不确定如何。我确实知道代码:
TimeValue(Now)
会给我当前时间,但是我不确定如何在我的表单上连续显示该时间。
我有一个想法,就是将这段代码放入循环中,如下所示:
Dim bool As Boolean
bool = True
Do While bool = True
Label1.Caption = TimeValue(Now)
Loop
但是我不确定该代码放在哪里。任何建议将不胜感激!
我解决了其他人在所选答案中使用给定代码遇到的问题。我删除了最新时间行,并更改了Label1.caption = Now()改为使用Time()。
Sub DisplayCurrentTime()
Dim nextSecond As Date
nextSecond = DateAdd("s", 1, Now())
Label1.Caption = Time()
Application.OnTime _
Procedure:="DisplayCurrentTime", _
EarliestTime:=nextSecond
End Sub
然后,在我的userform_initialize函数中调用此函数。Label1.caption更改为我的用户窗体上的适当标签。
感谢所有的帮助!