WebBrowser 怎么屏蔽鼠标右键
5个回答
2011-03-06
展开全部
'引用 Microsoft HTML OBject Library引用方法是在VB里点 菜单里的工程,引用,找到后前边打对号就行了将下边的代码复制到程序里!
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
Private Sub Form_Load()
Me.WebBrowser1.Navigate "http://www.soso.com"
End Sub
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
Private Sub Form_Load()
Me.WebBrowser1.Navigate "http://www.soso.com"
End Sub
展开全部
WebBrowser1.IsWebBrowserContextMenuEnabled = False
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
ncontextmenu() As Boolean
Webbrowser1.Document.oncontextmenu = False
End Function
Webbrowser1.Document.oncontextmenu = False
End Function
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
ncontextmenu() As Boolean
Webbrowser1.Document.oncontextmenu = False
End Function
Webbrowser1.Document.oncontextmenu = False
End Function
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
对一楼的答案表示同意
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询