VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 522|回复: 4

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

[复制链接]

9

主题

0

听众

96

积分

初级程序员

Rank: 2Rank: 2

擂点
0
人气
0
威望
0
注册时间
2016-8-1
精华
0
帖子
35
发表于 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

2

主题

0

听众

665

积分

中级程序员

Rank: 3

擂点
0
人气
2
威望
0
注册时间
2011-9-25
精华
0
帖子
34
发表于 2017-2-4 18:20:42 |显示全部楼层
用个放在PICBOX里吧
回复

使用道具 举报

9

主题

0

听众

96

积分

初级程序员

Rank: 2Rank: 2

擂点
0
人气
0
威望
0
注册时间
2016-8-1
精华
0
帖子
35
发表于 2017-2-4 20:34:17 |显示全部楼层
vrface 发表于 2017-2-4 18:20
用个放在PICBOX里吧

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

使用道具 举报

头像被屏蔽

348

主题

1

听众

5477

积分

禁止发言

擂点
0
人气
5
威望
11
注册时间
2004-6-24
精华
0
帖子
511
发表于 2017-2-9 10:03:17 |显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
签名被屏蔽
回复

使用道具 举报

9

主题

0

听众

96

积分

初级程序员

Rank: 2Rank: 2

擂点
0
人气
0
威望
0
注册时间
2016-8-1
精华
0
帖子
35
发表于 2017-2-25 15:05:45 |显示全部楼层
hpygzhx520 发表于 2017-2-9 10:03
IDocHostUIHandler接口的GetHostInfo方法中返回pInfo.dwFlags=DOCHOSTUIFLAG_SCROLL_NO

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

使用道具 举报

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

文字版|手机版|VBGood

GMT+8, 2017-3-29 03:38

VB爱好者乐园(VBGood)
回顶部