VB的WebBrowser自定义右键

VB的WebBrowser自定义右键, 不要找别人的答案乱答, 我试过很多百度搜索的方法都不行, 本人刚接触VB请说的详细些, 谢谢

'引用Microsoft HTML OBject Library
'加入webbrowser控件
'在窗体上自定义一个菜单(设为MyMenu)
'复制下面代码,运行即可禁止右键菜单了

'====窗体代码====
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 '弹出自定义菜单
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2009-11-26
首先在"工程"菜单中添加一个引用:
Microsoft Internet Controls
第二步:创建一个菜单(例如PoupMnu1)
第三步:在引用到的窗体中定义一个事件:
Public WithEvents IEDoc As MSHTML.HTMLDocument
第四步:编写事件代码:
Private Function IEDoc_oncontextmenu() As Boolean
IEDoc_oncontextmenu = False
PopupMenu PoupMnu1 '右键弹出的菜单
End Function
第五步:在NavigateComplete2中设置事件对象:
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Set IEDoc = WebBrowser1.Document
End Sub

vb webbrowser控件如何屏蔽右键
回答:'引用Microsoft HTML OBject Library '加入webbrowser控件 '在窗体上自定义一个菜单(设为MyMenu) '复制下面代码,运行即可禁止右键菜单了 '====窗体代码==== Dim WithEvents M_Dom As MSHTML.HTMLDocument Private Function M_Dom_oncontextmenu() As Boolean M_Dom_oncontextmenu = False End...

WebBrowser能否自定义右键菜单?
'在窗体上自定义一个菜单(设为MyMenu)'复制下面代码,运行即可禁止右键菜单了 '===窗体代码=== 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 ...

VB 用 WebBrowser 制作内置浏览器,如何自定义COOKIE
其实那个 WebBrowser 控件就是调用了 Internet Explorer,TT 也是一样(可能也是用的那个控件,哈哈)。

用VB写一个浏览器,webbrowser控件显示的网页中怎么屏蔽鼠标右键?希望...
点vb菜单-工程-引用-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 ...

如何使vb 文件按右键退出
有一个事件叫 right click 触发以后用 End 关键词结束程序即可

VB如何在webbrowser 实现按键F5刷新
webbrowser内核就是ie.F5调用的方法就是refresh 还有就是 WebBrowser1.Navigate WebBrowser1.LocationURL 这个就是我楼上的那个意思。这种的才是不刷新缓存。而refresh是重新更新缓存。下载图片等。如果是直接navigate的话只对本页面html进行读取。不进行图片的读取。如果你不信可以用http协议抓包就知道了。

vb里的WEBBROWSER怎么后台模拟点击FLASH上的按钮?
我就大概说下思路吧..首先到浏览器中打开这个网页..找到里面的Text标签例如有个Text叫做name吧..我们就在Webbrowser1的documentcomplete事件中写入Webbrowser1.Document.All("namet").value = "你的内容"如果是按钮的话你就可以写 Webbrowser1.Document.All("submit").click ...

vb6.0的webbrowse的所有属性方法与事件
VB的工具箱窗口并没有WebBrowser控件,我们可以这样添加:右击工具箱窗口--->部件--->选上Microsoft Internet Controls--->确定 WebBrowser控件 shdocvw.dll 基本操作:Webbrowser用法:goforward 前进 goback 后退 gohome 回主页 navigate 浏览 stop 停止 gosearch 搜索 属性:LocationURL网页地址 Location...

vb关于后台操作webbrowser,模拟键盘填写表单的问题(需要按方向键和tab...
那么VB中可以这样直接赋值:WebBrowser1.document.getElementById("username").Value = "myname"或者:WebBrowser1.document.getElementsByName("username")(0).Value = "myname"或者:WebBrowser1.document.getElementsByTagName("input")(0).Value = "myname" '假定这个文本框是网页上的第一个...

vb WebBrowser 鼠标点击事件
在登录之后,加一条如下语句即可 WebBrowse + 网址 或调用一下 Sub commandx_Click()这里的x是命令按钮的编号。

相似回答