如何在VB中实现 禁止 鼠标右键

Question

鼠标在这个控件上不能使用右键~

Answer 1

TextBox和RichTextBox有右键菜单，还有哪些控件？
可以用API函数来限制．

Answer 2

在消息处理程序里不处理WM_RBUTTONDOWN消息就可以屏蔽右键了。

Answer 3

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 SelectMyWndProc = CallWindowProc(oldWin_proc, hwnd, message, wParam, lParam)
End Function
把要屏蔽的控件的消息处理程序用MyWndProc来取代

Answer 4

如果仅仅是某个控件可以在mouse的按键时间里面
判断：
如果button=rightbutton
button＝0

Answer 5

province_(雍昊) 
  比如我要禁止text控件 不能使用右键， 应该配置那几个参数啊

Answer 6

还是使用“province_(雍昊)”提供的子类化技术吧，那样是最有效的。

Answer 7

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
button=2End Sub