VB6: get onreadystate Wert von Browser-Steuerung
-
24-09-2019 - |
Frage
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
Lösung
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.
Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow