PEGAR CLIQUE COM O MOUSE

USUARIO.EXCLUIDOS 04/06/2005 11:33:49
#86971

Bom vê se isso serve:

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then 'Botão direito
Me.PopupMenu mnuPop, , X, Y
ElseIf Button=1 Then 'Botão esquerdo
'Função pro botão esquerdo
End If
End Sub

USUARIO.EXCLUIDOS 04/06/2005 11:41:16
#86975

Eu já tinha tentado isso, mas não acontece nada qdo clico com o mouse.

Mudei o codigo e agora qdo dou um clique com o botão esquerdo do mouse funciona. Mas qdo dou um clique simples com o botão direito não acontece nada (o codigo so funciona se dou um duplo clique com o botão direito). O que está errado?

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = X / Screen.TwipsPerPixelX
'Clique duas vezes com o botão direito do mouse sobre o icone exibido
If X = WM_RBUTTONDOWN Then
Me.PopupMenu mnuPop
ElseIf X = WM_LBUTTONDOWN Then
Me.Show

End If
End Sub

GABRIEL.LOGAN 04/06/2005 12:11:22
#86982 Resposta escolhida

Tenta:

   If X = WM_LBUTTONDOWN Or WM_MBUTTONDOWN Then

GABRIEL.LOGAN 04/06/2005 12:27:52
#86985

Amigo, tem um link que trata disso:

http://www.vbmania.com.br/vbmdetail.php?varID=1707

USUARIO.EXCLUIDOS 04/06/2005 17:14:42
#87006

Valeu Logan.

Luiz