使用语句：WebBrowser2.Refresh ，如何等待刷新完？

Question

如题

Answer 1

while WebBrowser2.busy
  DoEvents
wend

Answer 2

不行啊。
我的意思是使用语句：WebBrowser2.Refresh 后，下面就相当于设置一个断点。当WebBrowser2的内容加载完毕后，才能执行后面的语句。

Answer 3

因为我下面的语句马上要用到WebBrowser2.Document，而
while WebBrowser2.busy
  DoEvents
wend
不能阻止语句WebBrowser2.Document的执行，这时的WebBrowser2.Document还是没有刷新前的

Answer 4

那就用readstate属性：
    WebBrowser1.Navigate "http://www.applevb.com"
    While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
    MsgBox "complete"

Answer 5

这样行不行：
WebBrowser2.Refresh
For i = 0 To 1
    DoEvents '延时
Next
While WebBrowser2.Busy
    DoEvents
Wend
For x = 0 To WebBrowser2.Document.links.length - 1
      .....
Next x

Answer 6

While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend当然不能阻止下面的语句的执行，他只是停止到在文档全部下载完成后而已。
在我的机器上面测试过可以的。

Answer 7

agree with TechnoFantasy(www.applevb.com) 就是这么用的

Answer 8

用我的方法可以，用While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
肯定不行，不可靠。