VB 禁止鼠标右键 怎样实现
答案:1 悬赏:60 手机版
解决时间 2021-01-30 03:55
- 提问者网友：暮烟疏雨之际
- 2021-01-29 08:09
VB 禁止鼠标右键 怎样实现
最佳答案
- 五星知识达人网友：行路难
- 2021-01-29 09:22
两种办法：
1.
Private Function MyWndProc(ByVal hwnd As Long, ByVal message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case message
case WM_RBUTTONDOWN:
exit function
End Select
MyWndProc = CallWindowProc(oldWin_proc, hwnd, message, wParam, lParam)
End Function
把要屏蔽的控件的消息处理程序用MyWndProc来取代替
2.如果仅仅是某个控件
可以在mouse的按键时间里面
判断：
如果button=rightbutton
button＝0
1.
Private Function MyWndProc(ByVal hwnd As Long, ByVal message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case message
case WM_RBUTTONDOWN:
exit function
End Select
MyWndProc = CallWindowProc(oldWin_proc, hwnd, message, wParam, lParam)
End Function
把要屏蔽的控件的消息处理程序用MyWndProc来取代替
2.如果仅仅是某个控件
可以在mouse的按键时间里面
判断：
如果button=rightbutton
button＝0
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯