230问答网 > 如何在vb里彻底屏蔽右键，各个控件，尤其是webbrowser里不能有右键

如何在vb里彻底屏蔽右键，各个控件，尤其是webbrowser里不能有右键

现在是可以在webbrowser里屏蔽右键，但是有js就失效

2025-03-04 20:34:34

推荐回答（3个）

回答1：

想实现屏蔽Webbrowser里的右键不容易，因为它是IE的控件而且没有提供鼠标判断的事件参数。因此，必须调用系统级别的WinAPI函数，术语叫钩子函数Hook。这种方法屏蔽掉右键与是否用到js就没有关系了。

VB屏蔽右键的代码如下：

Option Explicit
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public OldWindowProc As Long
Public Const WM_CONTEXTMENU = &H7B

Const GWL_WNDPROC = (-4)

Public Function SubClass1_WndMessage(ByVal hWnd As OLE_HANDLE, ByVal Msg As OLE_HANDLE, ByVal wp As OLE_HANDLE, ByVal lp As Long) As Long
If Msg = WM_CONTEXTMENU Then
SubClass1_WndMessage = True
Else
SubClass1_WndMessage = CallWindowProc(OldWindowProc, hWnd, Msg, wp, lp)
End If

End Function

Public Sub Hook(hWnd As Long)
OldWindowProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf SubClass1_WndMessage)
End Sub

Public Sub UnHook(hWnd As Long)
Call SetWindowLong(hWnd, GWL_WNDPROC, OldWindowProc)
End Sub

’窗体------------------

Option Explicit
Private Sub Form_Load()
Hook Me.Webbrowser1.hWnd
End Sub

Private Sub Form_Unload(Cancel As Integer)
UnHook Me.Webbrowser1.hWnd
End Sub

当然这种方法不仅仅屏蔽Webbrowser里的右键，所有地方都被屏蔽了。因此要有一个判断，仅在指定窗体活动时启用，其它地方不再屏蔽。

回答2：

Private Sub Text1_Change()
If Text1.Text = "VB" Or Text1.Text = "vb" Then
' SendKeys "{Esc}" '按下ESC
Dim WordObject As Object
Dim WordDoc
Set WordObject = CreateObject("Word.Application")

WordObject.Visible = 1
Set WordDoc = WordObject.Documents.Add
WordObject.Application.Activate
WordDoc.Paragraphs.Last.Range.Text = "你好 VB ！"

End If
End Sub

回答3：

要针对JS屏蔽右键可加我百度HI

最新问答

从沈阳到鄂尔多斯坐什么车最方便？

找女朋友。怎么找，我怎么无论都找不到？

同花顺手机炒股软件只能看行情不能下委托单

有一首歌，歌词是：有情有义有花香，你的什么什么的

商场里的衣服跟外面地摊卖衣服的有什么区别？

顺丰快递单号933527688597几时到信阳

地震中“横波”和“纵波”哪个的传播速度快？

重大和天大的建筑哪个比较好，考研成功率呢？？谢谢帮帮我填志愿。

有一天，我到同学家去玩，看见同学的爸爸妈妈在被窝里翻来覆去，他爸爸好像在打他妈妈，他妈妈不停的喊

顺丰快递什么时候停止发货？