VB去除Webbrowser 控件的滚动条
这个问题在网上太多[b][/b]了,回答也是千篇一律:
WebBrowser1.Document.Body.Scroll = "no"
我也试了N遍,无效哦!
谁有更有效的方法，上面的方法无效我是不是什么地方没弄对？
据说改html代码能实现，用WebBrowser显示网页，在VB程序中有办法改html代码吗
[解决办法]
Private Sub Form_Load() WebBrowser1.Navigate "about:blank" sPath = "c:\0003.gif" If Dir(sPath) = "" Then MsgBox "默認的路下未找到GIF圖片" End If Do While WebBrowser1.Busy DoEvents Loop WebBrowser1.Document.Open WebBrowser1.Document.writeln "<HTML>" WebBrowser1.Document.writeln "<HEAD>" WebBrowser1.Document.writeln "<TITLE>" WebBrowser1.Document.writeln "</TITLE>" WebBrowser1.Document.writeln "</HEAD>" WebBrowser1.Document.writeln "<BODY scroll=" & Chr(34) & "no" & Chr(34) & " oncontextmenu=self.event.returnValue=false>" WebBrowser1.Document.writeln "<div style=" & Chr(34) & "position:absolute; left: 0; top: 0" & Chr(34) & ">" WebBrowser1.Document.writeln "<IMG SRC=" & Chr(34) & sPath & Chr(34) & " BORDER=" & Chr(34) & "0" & Chr(34) & ">" WebBrowser1.Document.writeln "</div>" WebBrowser1.Document.writeln "</BODY>" WebBrowser1.Document.writeln "</HTML>"End Sub
