vb6 - VB6：从浏览器控件中获取 onreadystate 值

Question

我正在尝试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

关于有什么问题的任何想法？

Answer 1

如果您想使用 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

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