vb6.0中WebBrowser去掉滚动条禁止右键

下面的方法如果提示出错:”用户自定义类型未定义”话,建议重新安装vb6.0中文企业版(下载地址:http://www.cnzz.cc/Soft/974.html),vb6.0精简版(下载地址:http://www.duote.com/soft/3607.html)测试没有成功

引用Microsoft HTML OBject Library
‘加入webbrowser控件
‘在窗体上自定义一个菜单(设为)
‘复制下面代码,运行即可禁止右键菜单了
‘====窗体代码====
Dim WithEvents M_Dom As MSHTML.HTMLDocument
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False
End Function
Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = Webbrowser1.Document ‘好了,右键菜单没有了
me.PopupMenu mymenu ‘弹出自定义菜单 (如果上面没有添加菜单MyMenu也会出错,其实这个可以去掉的)
End Sub

下面的是搜集的一些其他的方法,包括去滚动条和禁止右键菜单

‘WebBrowser1去掉滚动条
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.Body.Scroll = “no”
End Sub
‘WebBrowser1禁止鼠标右键
Private Function M_Dom_oncontextmenu() As Boolean
Webbrowser1.Document.oncontextmenu = False
End Function
Private Sub mnuScroll1_Click()
‘注意:必须在网页完全显示之后才可以运行
WebBrowser1.Document.body.Scroll = “no” ‘不显示滚动条的办法
End Sub
Private Sub mnuScroll2_Click()
‘注意:必须在网页完全显示之后才可以运行
WebBrowser1.Document.body.Scroll = “Auto” ‘显示滚动条的办法
End Sub
代码也可以不放在按钮里面,比如放在timer中~~~呵呵~~

方法二:

将WebBrower放在PictureBox控件中,用PictureBox的边框挡住WebBrower的边框。
例如,将WebBrowser1放大点,将PictureBox变小点…PictureBox的appearance设置为0-flat(这个没有测试成功)
屏蔽WebBrowser右键菜单
‘引用Microsoft HTML OBject Library
Dim WithEvents M_Dom As MSHTML.HTMLDocument
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False
End Function
Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = Webbrowser1.Document
End Sub

发表评论

您的电子邮箱地址不会被公开。