技术应用
-
编辑 删除
一段禁止WEBBROWSER控件右键菜单的源码（VB）
一段禁止WEBBROWSER控件右键菜单的源码（VB）[@more@]Dim WithEvents M_Dom As MSHTML.HTMLDocumentDim M_win As MSHTML.IHTMLWindow2'判断结束程序Private Sub Command1_Click()If Me.Text1 = "jgawjkr" ThenEndElseMe.Text1.Visible = FalseMe.Command1.Visible = FalseMe.Command1.Enabled = FalseEnd IfEnd SubPrivate Function M_Dom_oncontextmenu() As BooleanM_Dom_oncontextmenu = False '禁止右键菜单End FunctionPrivate Sub M_Dom_onkeyup()If M_win.event.ctrlKey = True And M_win.event.keyCode = 75 Then '定义
