VB6: ottenere il valore onreadystate dal controllo del browser

Question

Sto cercando di ottenere il valore onreadystate dal controllo del browser vengono rilevati da quando la pagina è carico finito. purtroppo torna .returnValue della manifestazione vuoto. cosa c'è di sbagliato?

Ecco il mio codice - 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

Se si desidera utilizzare gli eventi del HTMLDocument cercano

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

In caso contrario, è possibile utilizzare l'evento del controllo WebBrowser per rilevare quando un documento è completamente caricato o chiamare il metodo Navigate o Navigate2 e subito ciclo durante il polling della WebBrowser.ReadyState

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

Naturalmente non dimenticate di aggiungere un gestore degli errori.