一段禁止WEBBROWSER控件右键菜单的源码（VB）

一段禁止WEBBROWSER控件右键菜单的源码（VB）[@more@]

Dim WithEvents M_Dom As MSHTML.HTMLDocument
Dim M_win As MSHTML.IHTMLWindow2

'判断结束程序

Private Sub Command1_Click()
If Me.Text1 = "jgawjkr" Then
End
Else
Me.Text1.Visible = False
Me.Command1.Visible = False
Me.Command1.Enabled = False
End If
End Sub

Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False '禁止右键菜单
End Function

Private Sub M_Dom_onkeyup()
If M_win.event.ctrlKey = True And M_win.event.keyCode = 75 Then '定义热键CTRL+K
Me.Command1.Enabled = True
Me.Text1.Visible = True
Me.Command1.Visible = True
End If

End Sub

Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = WebBrowser1.Document
Set M_win = M_Dom.parentWindow
End Sub

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10828080/viewspace-957283/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10828080/viewspace-957283/