2007年4月27日
当我们在程序窗体中要显示网页的内容，我们当然首选是WebBrowser控件，可是有时候因为美观的需要，我们要去掉WebBrowser的边框与滚动条，解决的方法是使用CSS样式表。
如果我们可以修改要显示的网页代码，则可以直接在网页的头（head）部分中加入<style>BODY{ border:0px; overflow:hidden; }</style>即可。如果网页代码不能修改，我们则可以使用代码动态修改样式而达到目的，代码如下:
Dim WB As WebBrowser
Set WB = Me.WebBrowser1.Object
WB.Document.body.Style.border = "0px" '隐藏边框
WB.Document.body.Style.overflow = "hidden" '隐藏滚动条
WB.Document.body.Style.margin = "0px" '修改网页边距为0
............
事实上我可以只要参照DOM对应的样式控件语法修改好了
如果我们可以修改要显示的网页代码，则可以直接在网页的头（head）部分中加入<style>BODY{ border:0px; overflow:hidden; }</style>即可。如果网页代码不能修改，我们则可以使用代码动态修改样式而达到目的，代码如下:
Dim WB As WebBrowser
Set WB = Me.WebBrowser1.Object
WB.Document.body.Style.border = "0px" '隐藏边框
WB.Document.body.Style.overflow = "hidden" '隐藏滚动条
WB.Document.body.Style.margin = "0px" '修改网页边距为0
............
事实上我可以只要参照DOM对应的样式控件语法修改好了
您说的dom是什么?