VB6: احصل على قيمة onReadyState من التحكم في المتصفح

Question

أحاول الحصول على قيمة 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

إذا كنت ترغب في استخدام أحداث HTMLDOCUMIT

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

وإلا يمكنك استخدام حدث WebBrowser Control لاكتشافه عند تحميل المستند بالكامل أو الاتصال بالطريقة التنقل أو التنقل 2 وحلقه على الفور أثناء استقصاء WebBrowser.ReadyState

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

بالطبع لا تنسى إضافة معالج خطأ.