SKY外语计算机学习

标题: WebBrowser 屏蔽鼠标右键 [打印本页]

作者: 穆穆    时间: 2013-10-5 23:39
标题: WebBrowser 屏蔽鼠标右键
本帖最后由 sky_yx 于 2015-12-30 14:19 编辑

'引用 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()
WebBrowser1.Silent = True
End Sub
'webbrowser2打开webbrowser1的连接
Private Sub Form_Load()
End Sub
Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = webbrowser2.object
End Sub


作者: 骏马    时间: 2013-10-6 07:43
本帖最后由 sky_yx 于 2015-12-30 14:19 编辑




作者: Kill    时间: 2013-10-6 12:28
VB+WebBrowser开发网页相关的程序很方便。




欢迎光临 SKY外语计算机学习 (http://skywj.com/) Powered by Discuz! X2.5