SELECIONAR ITEM DA LISTBOX COM BOTAO DIREITO

PETRONCO 01/07/2011 20:53:41
#378241
Galera, quando se utiliza o botão esquerdo do Mouse em algum item da listbox, o mesmo ganha focus e o item fica destacado...quero que ocorra o mesmo com o Botão Direito do Mouse, pois criei uma rotina com MenuPopup mas com o botão direito a ListBox não ganha foco...
TECLA 01/07/2011 21:23:59
#378245
Poste a rotina com o popup que escreveu.
PETRONCO 01/07/2011 21:27:46
#378246
Código:

Private Sub Lst1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 On Error Resume Next
With Lst1
  If Button = 2 Then
   .SetFocus
   PopupMenu FrmPrin.M_Oculto, , .Left + X, .Top + Y
  End If
End With
End Sub
PETRONCO 02/07/2011 15:59:22
#378307
Alguma dica aê ???
DANLEONHART 03/07/2011 11:26:51
#378349 Resposta escolhida
Faz assim:
Em um Módulo:

Public Declare Sub mouse_event Lib [Ô]user32[Ô] (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_MOVE = &H1          [ô] Move o Mouse
Public Const MOUSEEVENTF_LEFTDOWN = &H2      [ô] Botão Esquerdo para Baixo
Public Const MOUSEEVENTF_LEFTUP = &H4        [ô] Botão Esquerdo para Cima
Public Const MOUSEEVENTF_RIGHTDOWN = &H8     [ô] Botão Direito para Baixo
Public Const MOUSEEVENTF_RIGHTUP = &H10      [ô] Botão Direito para Cima
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20   [ô] Botão do Meio para Baixo
Public Const MOUSEEVENTF_MIDDLEUP = &H40     [ô] Botão do Meio para Cima
Public Const MOUSEEVENTF_WHEEL = &H800       [ô] Ao rolar a [Ô]rodinha do Mouse
Public Const MOUSEEVENTF_ABSOLUTE = &H8000   [ô] Movimento total


No evento MouseDown :

Private Sub Lst1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 2 Then
   mouse_event MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
  End If
End Sub


No evento MouseUP :

Private Sub Lst1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Lst1
  If Button = 2 Then
   .SetFocus
   PopupMenu FrmPrin.M_Oculto, , .Left + X, .Top + Y
  End If
End With
End Sub

Adapte com seu PopupMenu...
Comigo funcionou...
Tópico encerrado , respostas não são mais permitidas
Voltar