Question

VB WebBrowser结束触发事件

当WebBrowser把URL加载完成后会出发什么实践？举个例子， 比如把百度打开之后， 完全加载完后弹出提示“数据已加载完成！”

Answer 1

WebBrowser1_DocumentComplete(ByVal

Answer 2

'在窗体内加入WebBrowser控件，然后复制下面代码 ，运行即可。

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

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL <> "about:blank" Then
MsgBox "数据已加载完成！"
End If
End Sub

Answer 3

在 DocumentCompleted 事件中，判断 URL 参数与目标网址是否一致(应采用标准网址比对，如 "http://www.baidu.com/")，或者直接如2L，判断 URL 不为 ""、"about:blank"。

Answer 4

'综合楼上两位大哥的代码
'在窗体内加入WebBrowser控件，然后复制下面代码 ，运行即可。

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

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL <> "about:blank" and url<>"" and url="www.baidu.com" Then
MsgBox "数据已加载完成！"
End If
End Sub
documentcomplete不是一次性完成的，如果网页包含框架，框架内的网页每一个都completed一次。不过好像最后完成的是主网页本身。
但是这种情况下检测也不完全保险，因为有时候某些框架内网页打不开的话，主网页就不能完成completed.也就是最终的url可能是"about:blank"。我试过这种情况。目前没想到更好的办法。

Answer 5

documentCompleted吧