我正在尝试从浏览器控件中获取onreadystate
值,以检测页面何时完成加载。不幸的是,事件的.returnValue
返回为空。
这是我的代码:
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
关于出什么问题的任何想法?
如果您想使用HTMLDocument的事件,请尝试
m_doc.createDocumentFromUrl "http://www.microsoft.com", ""
否则,您可以使用WebBrowser控件的事件来检测文档何时完全加载,或调用Navigate或Navigate2方法并在轮询WebBrowser.ReadyState时立即循环。>
WebBrowse1.Navigate2 "http://www.microsoft.com" Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE DoEvents Loop
当然不要忘记添加错误处理程序。