VB6 WebBrowserエラーはauterHTMLプロパティを取得できません

Question

私は古い番組がそれをVB6で作成され、それはよく機能していました、 Webブラウザコントロールを使用してWebページをロードしてから、String内のHTMLを取得します.String変数にHTMLコードをロードしようとしたときに以下のエラーメッセージを受信しました。ビッグページだけが発生します。

私のコードは以下のように

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

.

Answer 1

WebBrowser1.Document.documentElement.outerHTMLはDocumentCompleteイベントでのみ機能します。

Private Sub WebBrowser1_DocumentComplete()

  html = WebBrowser1.Document.documentElement.outerHTML

End Sub

.