VB6：ブラウザコントロールからonreadystate値を取得

Question

私は、ページが完成読み込みを持っているときを検出DOブラウザコントロールから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", ""

ポーリングWebBrowser.ReadyState

一方、

そうしないと、ドキュメントが完全にロードされたときに検出するために、WebBrowserコントロールのイベントを使用したり、移動またはNavigate2のメソッドを呼び出すと、すぐにループすることができます

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

もちろんエラーハンドラを追加することを忘れないでください。