如何在VBA用户窗体使用Application.OnTime时移除闪烁光标

光标闪烁的根源在于Application.OnTime是Excel应用级别的定时触发机制，每次触发时会切换焦点到Excel主窗口再返回用户窗体，同时频繁更新标签Caption会引发窗体重复重绘。以下是两种可行的解决方法：

方法一：优化现有OnTime代码，减少不必要重绘 #

通过锁定窗口更新、仅在时间变化时更新标签，来降低闪烁频率：

1. 在模块顶部添加API声明（用于锁定窗口重绘）：

Private Declare PtrSafe Function LockWindowUpdate Lib "user32.dll" (ByVal hwndLock As LongPtr) As LongPtr

2. 修改UpdateCurrentTime和StartTimer过程：

Option Explicit
Dim UpdateTime As Double

Sub StartTimer()
    ' 初始化显示当前时间
    frmCalendar.lblCurrentTime.Caption = Format(Now(), "hh:mm AM/PM")
    ' 调度第一次更新
    UpdateTime = Now + TimeValue("00:00:01")
    Application.OnTime UpdateTime, "UpdateCurrentTime"
End Sub

Sub UpdateCurrentTime()
    Dim currentTime As String
    currentTime = Format(Now(), "hh:mm AM/PM")
    
    ' 仅当时间变化时执行更新，避免无效重绘
    If frmCalendar.lblCurrentTime.Caption <> currentTime Then
        ' 锁定窗口，防止更新时闪烁
        LockWindowUpdate frmCalendar.hWnd
        frmCalendar.lblCurrentTime.Caption = currentTime
        ' 解锁窗口并强制重绘
        LockWindowUpdate 0&
        frmCalendar.Repaint
    End If
    
    ' 重新调度下一次更新
    UpdateTime = Now + TimeValue("00:00:01")
    Application.OnTime UpdateTime, "UpdateCurrentTime"
End Sub

Sub StopTimer()
    On Error Resume Next
    Application.OnTime UpdateTime, "UpdateCurrentTime", , False
    On Error GoTo 0
End Sub

方法二：改用用户窗体内置Timer控件（更推荐） #

窗体内置Timer属于窗体本地控件，运行时不会切换焦点到Excel，彻底解决闪烁问题：

1. 打开用户窗体设计器，添加Timer控件（若工具箱中没有，右键工具箱→附加控件→勾选「Microsoft Forms 2.0 Timer」）。
2. 设置Timer控件的Interval为1000（1秒），Enabled为False。
3. 在用户窗体代码模块中添加以下代码：

Option Explicit

Private Sub UserForm_Initialize()
    ' 初始化显示当前时间
    lblCurrentTime.Caption = Format(Now(), "hh:mm AM/PM")
End Sub

' 启动计时器（可绑定到按钮点击或窗体显示事件）
Private Sub cmdStart_Click()
    Timer1.Enabled = True
End Sub

' 停止计时器（可绑定到按钮点击或窗体关闭事件）
Private Sub cmdStop_Click()
    Timer1.Enabled = False
End Sub

' 定时更新时间
Private Sub Timer1_Timer()
    Dim currentTime As String
    currentTime = Format(Now(), "hh:mm AM/PM")
    
    ' 仅当时间变化时更新标签
    If lblCurrentTime.Caption <> currentTime Then
        lblCurrentTime.Caption = currentTime
    End If
End Sub

Private Sub UserForm_Terminate()
    ' 窗体关闭时自动停止计时器
    Timer1.Enabled = False
End Sub

两种方法对比 #

• 方法一：无需修改现有架构，通过优化逻辑降低闪烁，但仍依赖Excel应用级定时，极端情况可能仍有轻微闪烁。
• 方法二：完全基于窗体本地机制，无焦点切换问题，是用户窗体定时任务的最优方案。

内容的提问来源于stack exchange，提问作者Sofy Mastertech