خطأ ويبروزر في بي 6 لا يمكن الحصول على خاصية أوترتمل
سؤال
لقد تم إنشاء البرنامج القديم من قبل ف 6 وكان يعمل بشكل جيد, أنا باستخدام التحكم في متصفح الويب لتحميل صفحة ويب ، ثم الحصول على هتمل داخل سلسلة ، تلقيت مؤخرا رسالة الخطأ أدناه عندما حاولت تحميل رمز هتمل إلى متغير سلسلة ، فإنه يحدث مع صفحات كبيرة فقط.
رمز بلدي على النحو التالي
Dim html As String
Private Sub GetHtm_Click()
WebBrowser1.Navigate (webVar)
Do
DoEvents
Loop Until Not WebBrowser1.Busy
html = WebBrowser1.Document.documentElement.outerHTML
End Sub
المحلول
WebBrowser1.Document.documentElement.outerHTML
يعمل فقط في DocumentComplete
الأحداث.
Private Sub WebBrowser1_DocumentComplete()
html = WebBrowser1.Document.documentElement.outerHTML
End Sub
لا تنتمي إلى StackOverflow