VB WebBrowser控件ProgressChange事件调用间隔调整方法咨询

首先明确：WebBrowser的ProgressChange事件触发间隔由底层IE内核决定，无法直接通过代码调整。针对你的问题，推荐以下两种互补方案，既解决原Timer优先级失效问题，又保证加载动画的流畅性：

方案一：ProgressChange事件+Timer互补 #

用ProgressChange判断加载的开始/结束，Timer负责流畅更新动画：

步骤1：定义全局变量 #

Private m_bIsLoading As Boolean
Private BusyIdx As Integer
Private BusyChr() As Byte ' 示例：BusyChr = Array(&H10, &H11, &H12, &H13) 对应WingDings时钟字符

步骤2：处理ProgressChange事件 #

Private Sub WebBrowser_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
    If Progress > 0 And Progress < ProgressMax Then
        m_bIsLoading = True
        ' 仅当Timer未启用时启动，避免重复触发
        If Not BusyTimer.Enabled Then
            BusyTimer.Interval = 100 ' 调整此值控制动画速度，如100ms/帧
            BusyTimer.Enabled = True
        End If
    ElseIf Progress = ProgressMax Or Progress = 0 Then
        m_bIsLoading = False
        BusyTimer.Enabled = False
        WebBusy.Caption = "" ' 清空加载提示或显示完成状态
        Me.Caption = WebBrowser.LocationName
        ScanTimer.Interval = 10000
        ScanTimer.Enabled = True
    End If
End Sub

步骤3：简化Timer事件 #

Private Sub BusyTimer_Timer()
    If m_bIsLoading Then
        WebBusy.Caption = Chr$(BusyChr(BusyIdx))
        BusyIdx = IIf(BusyIdx >= UBound(BusyChr()), 0, BusyIdx + 1)
    End If
End Sub

方案二：BeforeNavigate2+DocumentComplete事件配合Timer #

通过导航前后的事件控制Timer，更精准判断加载周期：

步骤1：处理BeforeNavigate2事件（加载开始） #

Private Sub WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    m_bIsLoading = True
    BusyTimer.Interval = 100
    BusyTimer.Enabled = True
End Sub

步骤2：处理DocumentComplete事件（加载结束） #

Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    ' 仅当主文档加载完成时停止Timer（避免框架页面多次触发）
    If pDisp Is WebBrowser.Object Then
        m_bIsLoading = False
        BusyTimer.Enabled = False
        WebBusy.Caption = ""
        Me.Caption = WebBrowser.LocationName
        ScanTimer.Interval = 10000
        ScanTimer.Enabled = True
    End If
End Sub

步骤3：Timer事件同方案一 #

原Timer方案失效原因 #

WebBrowser在加载页面时会占用UI线程资源，Timer的Tick事件消息优先级低于浏览器导航操作，导致点击链接时Timer无法及时触发判断状态。而上述方案中，Timer仅负责更新动画，加载状态由浏览器原生事件触发判断，彻底规避了优先级问题。

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