VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 753|回复: 5

vb6如何隐藏WEBBROWSER控件滚动条?

[复制链接]
发表于 2017-1-23 02:32:40 | 显示全部楼层 |阅读模式
发现用了各种API等方法都不行,只有以下一种有效,就是在这个DocumentComplete事件时马上设置'Web1.Document.body.Scroll = "no"
大家想想,这是为什么?

如果弄一个按钮就不行
    Private Sub Command2_Click()
Web1.Document.body.Scroll = "no" '此处无效
   end sub
Private Sub Web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'Web1.Document.body.Scroll = "no" '此处有用
Web1.Silent = True

End Sub

Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Private Const SC_VSCROLL = &HF070&

ShowScrollBar web句柄, SC_VSCROLL, False
等多个方法都没用

Function GetWebHwnd() As Long
Dim tHdl&
tHdl = FindWindowEx(Me.hwnd, 0, "Shell Embedding", "")
If tHdl <> 0 Then
    tHdl = FindWindowEx(tHdl, 0, "Shell DocObject View", "")
    tHdl = FindWindowEx(tHdl, 0, "Internet Explorer_Server", vbNullString)
    If tHdl <> 0 Then
        GetWebHwnd = tHdl
    End If
End If
End Function
发表于 2017-2-4 18:20:42 | 显示全部楼层
用个放在PICBOX里吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-2-4 20:34:17 | 显示全部楼层
vrface 发表于 2017-2-4 18:20
用个放在PICBOX里吧

我以前也是放在PIC控件里给他遮掉处理
回复 支持 反对

使用道具 举报

头像被屏蔽
发表于 2017-2-9 10:03:17 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-2-25 15:05:45 | 显示全部楼层
hpygzhx520 发表于 2017-2-9 10:03
IDocHostUIHandler接口的GetHostInfo方法中返回pInfo.dwFlags=DOCHOSTUIFLAG_SCROLL_NO

IDocHostUIHandler,是一种什么东西?为什么很多DLL,OCX控件都没这东东?
回复 支持 反对

使用道具 举报

发表于 2017-9-13 23:34:14 | 显示全部楼层
一般是加载完毕后调用才能生效,未加载完成是无法隐藏WEB的滚动条的
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2017-9-26 01:06

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表