VB6: get onreadystate Wert von Browser-Steuerung

Question

Ich versuche, den onreadystate Wert aus der Browser-Kontrolle zu bekommen do zu erkennen, wenn die Seite fertig geladen hat. Leider ist die .returnValue kehrt Veranstaltung leeren. was ist los?

Hier ist mein Code - 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

Wenn Sie die Htmldocument-Veranstaltungen verwenden möchten versuchen

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

Ansonsten können Sie das WebBrowser-Steuerelement Veranstaltung verwenden, um festzustellen, wann ein Dokument vollständig geladen ist oder das Navigieren oder Navigate2 Methode aufrufen und sofort Schleife bei der Abfrage der WebBrowser.ReadyState

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

Natürlich vergessen Sie nicht, einen Fehlerhandler hinzuzufügen.