Question

■■■■■VB 如何去掉滚动条 WebBrowser■■■■■

我想在WebBrowser里的网页加载完毕后，使滚动条不显示~
我已经找了好多，可惜都不能用，所以请复制流免答，谢谢～
帮我解决问题的我继续追分~

Answer 1

Private Sub mnuScroll1_Click()
'注意：必须在网页完全显示之后才可以运行
WebBrowser1.Document.body.Scroll = "no" '不显示滚动条的办法
End Sub
Private Sub mnuScroll2_Click()
'注意：必须在网页完全显示之后才可以运行
WebBrowser1.Document.body.Scroll = "Auto" '显示滚动条的办法
End Sub

Answer 2

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.Body.Scroll = "no"
End Sub

Answer 3

在delphi里面 直接一句话就可以了：WebBrowser1.OleObject.Document.Body.Scroll := 'no';