请问,如何判断webbrowser控件内的网页被成功加载呢?我想实现如下功能.我是初学者,请高手指点.

Question

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.google.com"
End SubPrivate Sub Command1_Click()
  if WebBrowser1成功加载 then
  msgbox "加载成功."  
  else
  msgbox "没有加载成功."
  end if
End Sub如何写这条语句呢?      if WebBrowser1成功加载 then

Answer 1

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    WebBrowser1成功加载 = True
End Sub
现在也没什么加载成不成功的了吧，就算你随便输入一个字符串或者一个不可能存在的Url的话，那么WebBrowser也会显示“Internet Explorer 不能链接到您请求的网页。此页可能暂时不可用。”等完成加载的信息。

Answer 2

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If URL = "about:blank" Then Exit Sub
    If Not (pDisp Is WebBrowser1.Object) Then Exit Sub
    WebBrowser1成功加载 = True
End Sub

Answer 3

WebBrowser1_NavigateComplete2和WebBrowser1_DocumentComplete哪个正确？如果是本地的网页文件呢？？？

Answer 4

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If URL = "about:blank" Then Exit Sub
    If Not (pDisp Is WebBrowser1.Object) Then Exit Sub
    WebBrowser1成功加载 = True
End Sub

Answer 5

是否是本地文件.WebBrowser1_NavigateComplete2都是正确的/

Answer 6

dim o as object
WebBrowser1.Navigate "http://expert.csdn.net/Expert/topic/2090/2090182.xml?temp=5.958194E-02"
Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
 DoEvents
Loop
Set o = WebBrowser1.Document

Answer 7

另:
NavigateComplete2不完全正确,因为在有frames的网页中, 一个frame完成也会激活这一事件.
而DocumentComplete是整个网页完全下完才激活的.楼上有两位用DocumentComplete的是不是就不需要
If Not (pDisp Is WebBrowser1.Object) Then Exit Sub
这句了.反而NavigateComplete2才需要判断是不是sub frames完成.

Answer 8

楼上有两位用DocumentComplete的是不是就不需要
If Not (pDisp Is WebBrowser1.Object) Then Exit Sub
这句了.你试验试验看看发生几次，赫赫