VB6: obtenir la valeur onreadystate du contrôle du navigateur

Question

Je suis en train d'obtenir la valeur onreadystate du contrôle du navigateur ne détectent lorsque la page a terminé le chargement. malheureusement .returnValue de l'événement retourne vide. ce qui ne va pas?

voici mon 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

Si vous voulez utiliser les événements de la HTMLDocument essayer

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

Sinon, vous pouvez utiliser l'événement du contrôle WebBrowser pour détecter lorsqu'un document est complètement chargé ou appelez la méthode Navigate ou Navigate2 et immédiatement boucle lors du sondage du WebBrowser.ReadyState

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

Bien sûr, ne pas oublier d'ajouter un gestionnaire d'erreur.