VB6：从浏览器控件onreadystate值

Question

我试图摆脱浏览器控件的onreadystate值做检测时，页面加载完成后。不幸的是，事件的.returnValue返回空。 出了什么问题？

下面是我的代码 - THX：

Dim WithEvents m_doc As HTMLDocument

Private Sub Form_Load()
    Set m_doc = WebBrowser1.Document
End Sub

Private Sub m_doc_onreadystatechange()
Dim m_event As IHTMLEventObj
    Set m_event = m_doc.parentWindow.event
    m_value = "'" & m_event.returnValue & "'"
    MsgBox "onreadystatechange: " & m_value
End Sub

Answer 1

如果您想使用HTMLDocument的的事件，试图

m_doc.createDocumentFromUrl "http://www.microsoft.com", ""

，否则可以使用web浏览器控件的事件来检测当文档被完全加载或调用导航或Navigate2方法并立即循环而轮询WebBrowser.ReadyState

WebBrowse1.Navigate2 "http://www.microsoft.com"
Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
    DoEvents
Loop

当然不要忘记添加一个错误处理程序。