webbrowser怎么让DocumentComplete刷新时也激发

来源：百度知道 编辑：UC知道 时间：2024/05/13 12:01:54
vb6中webbrowser怎么让DocumentComplete刷新时也激发
不能的，我用timer每10秒执行webbrownser.refresh,但是写在WebBrowser1_DocumentComplete里面的msgbox只执行一次而已。说明刷新不能激发decumentcomplete事件

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