VB6でフォームにWebBrowserコントロールを配置しそこにコンテンツを直接流し込む
ちょっとはまった。
まず、ページを開かないと、Documentオブジェクトにアクセスすることができない。
で、ページの読み込みが完了するタイミングはDocumentCompleteということで以下のようなコードになる。
(フォームにWebBrowserコントロールを配置して..)
Private Sub Form_Load() WebBrowser1.Navigate "about:blank" End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) If URL = "about:blank" Then Set doc = WebBrowser1.Document doc.body.innerHTML = "<div><img src='file:///d:/Projects/src/IEcontrol/world.png'/><span>IEコントロール</span></div>" & _ "<div><input type='text' value='000.00' size='10'/>" & _ "<span>Kg</span></div>" & _ "<style type='text/css'>span{color:#666666;} *{padding:0;margin:0}</style>" End If End Sub