VBA如何在用户窗体中显示实时时钟？

Question

所以我需要在我的表单上显示实时时钟，但我不知道如何。我确实知道代码:

TimeValue(Now)

会给我当前时间，但我不知道如何在我的表单上持续显示它。

我有一个想法，就是将此代码放入循环内，如下所示:

Dim bool As Boolean
bool = True
Do While bool = True
    Label1.Caption = TimeValue(Now)
Loop

但是我不确定该代码放在哪里。任何建议将不胜感激!

Answer 1

Excel 有 the OnTime method它允许您安排任何过程的执行。

只需用它来安排一秒的节奏即可。

Sub DisplayCurrentTime()
  Dim nextSecond As Date

  nextSecond = DateAdd("s", 1, Now())

  Label1.Caption = Now()

  Application.OnTime _
    Procedure:="DisplayCurrentTime", _
    EarliestTime:=nextSecond, _
    LatestTime:=nextSecond
End Sub

通过调用 DisplayCurrentTime() 一次来启动循环，例如在表单的初始化方法中。