Question

VB WebBrowser 为页面添加代码的方法

用WebBrowser打开一个网址。。然后为这个页面添加下面这段代码。然后再显示出来。。这代码应该怎么加？麻烦高手帮一下忙..请给个实例。。
<style type="text/css">
<!--
body {
margin-left: 1px;
margin-top: 1px;
margin-right: 1px;
margin-bottom: 1px;
}
-->
</style>

Answer 1

在工程中引用Microsoft HTML Object Library

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Dim sTemp As String
Dim sDoc As String
sTemp = WebBrowser1.Document
sDoc="你要添加的代码"
sTemp=Stemp & sDoc
WebBrowser1.Document.write sTemp

End Sub