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
ＶＢ+WebBrowser开发网页相关的程序很方便。

欢迎光临 SKY外语计算机学习 (http://skywj.com/)