一站直销 > webbrowser怎么让DocumentComplete刷新时也激发

webbrowser怎么让DocumentComplete刷新时也激发

2025-04-17 17:46:35

推荐回答（1个）

回答1：

Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox "a:"
End Sub

在调用 Refresh 方法时不会发生_DocumentComplete事件这是微软的官方解释
不知道你要激活这个事件过程做什么

Dim a
Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub

Private Sub Timer1_Timer()
WebBrowser1.Navigate a
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
a = URL
End Sub