vb中的webbrowser如何判断含有框架的网页是否加载完毕！！最好有代码啊！

Question

vb中的webbrowser如何判断含有框架的网页是否加载完毕！！加载完毕后实现把变量p赋值为1

Answer 1

方法1：
Private Sub Command1_Click()
    WebBrowser1.Navigate "www.baidu.com"
    While WebBrowser1.ReadyState <> 4
        oEvents
    Wend
    p = 1
End Sub方法二：
Private Sub Command1_Click()
    WebBrowser1.Navigate "www.baidu.com"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If pDisp Is WebBrowser1.Object Then p = 1
End Sub