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

[ourbone]

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

[leswang107]

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

[leswang107]

不好意思上面的错了，呵呵，应该这样，汗~~~~~~~~

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

[lazycat818]

呵呵，估计楼主要求的是鼠标右键弹出菜单吧
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

[titan1975]

up

[ntz]

首先要建一个菜单,就是你要用右键弹出的那个东西呀,比如说菜单名叫"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

[sxs69]

窗体的KeyPreview属性应设为True