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