在VB中如何用代码实现使用鼠标右键？

Question

在VB中如何用代码实现使用鼠标右键？

Answer 1

Private Sub Form_Click()
If vbRightButton = 2 Then
   MsgBox ""
End If
End Sub

Answer 2

不好意思上面的错了，呵呵，应该这样，汗~~~~~~~~Private Sub Form_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
If button = vbRightButton Then
   MsgBox ""
End If
End Sub

Answer 3

呵呵，估计楼主要求的是鼠标右键弹出菜单吧
Private Sub Form_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
If button = vbRightButton Then
   popupmenu mnuHello,2 ’具体用法自己查
End If
End Sub

Answer 4

首先要建一个菜单,就是你要用右键弹出的那个东西呀,比如说菜单名叫"menxx"
再加上:
Private Sub Form_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
If button = 2 Then
   popupmenu menxx
End If
End Sub

Answer 5

窗体的KeyPreview属性应设为True