ich beabsichtige HTML-Seiten dynamisch als Object-Variable (HTMLDocument) zu erzeugen und in einem WebBrowser-Control in einem UserForm zu laden. Im Prinzip habe ich das auch hinbekommen (siehe Code), aber kann ich die HTMLDocument-Variable auch direkt an das WebBrowser-Control übergeben? Mir erscheint es etwas umständlich, dass der HTML-Code "abgeschrieben" wird:
Private Sub UserForm_Initialize()
Dim objHTMLDoc As Object
'Set objHTMLDoc = New HTMLDocument 'early binding
Set objHTMLDoc = CreateObject("htmlfile") 'late binding
With objHTMLDoc
.Open
.write "Das ist ein sinnloser HTML-Text eines virtuellen HTMLDocuments"
.Close
End With
With WebBrowser1
.Navigate "about:blank"
.Document.write objHTMLDoc.documentElement.outerHTML
.Document.Close
End With
End Sub
Statt der Zeile
WebBrowser1.Document.write objHTMLDoc.documentElement.outerHTML
...müsste es doch etwas geben wie...WebBrowser1.Document = objHTMLDoc
Ich bin nur neugierig, ob ich mich einfach etwas umständlich anstelle.Viele Grüße
Martin