Select list box's item by right-clicking it?

[vbnex]

Hello,
It seems like something simple but I'm still not really able to figure this out.
How can I select a lisbox's item by right-clicking on it?
Thanks in advance for any inputs!
Best regard,
VBNex.

[CaptainD]

Hello,
It seems like something simple but I'm still not really able to figure this out.
How can I select a lisbox's item by right-clicking on it?
Thanks in advance for any inputs!
Best regard,
VBNex.

On the MouseDown, Mouseup event you can check for which button. If Button 2 do something

[vbnex]

Hello,
Thanks a lot for your answer.
Button number 2,I know but my question was...
What's the code to make the 2nd (right-click) work like the 1st (left mouse button) (To "highlight"/select the entry)?
Thanks!

[Cobrasoft]

I would like to know that too!!

[albertw]

I would like to know that too!!

hi

i might have a solution

 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Const LB_ITEMFROMPOINT = &H1A9
Dim ndx as Long
 
 
 
Public Function ListBoxHit(ListBox As ListBox, ByVal X As Single, ByVal Y As Single) As Long
 
    ndx= SendMessage(YourListBox.hWnd, LB_ITEMFROMPOINT, 0, (Y \ Screen.TwipsPerPixelY) * 65536 + (X \ Screen.TwipsPerPixelX))
    If (ndxAnd &H10000) = &H10000 Then
        ListBoxHit = -1
    Else
        ListBoxHit = ndx
    End If
End Function
 
 
Private Sub YourListBox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
If Button = 2 Then
  ndx= ListBoxHit(YourListBox, X, Y)
  If Not ndx= -1 Then YourListBox.Selected(ndx) = True
End If
End Sub
 
 

similar your may alter _mousedown by _mousemove !
:)

[Joto]

Use the HitTest method:

Private Sub ListView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseUp
  Dim hti As ListViewHitTestInfo = ListView1.HitTest(e.Location)
  Dim six As Integer = hti.Item.SubItems.IndexOf(hti.SubItem)
  MsgBox(six.ToString)
End Sub

i didn't test out this exact code, so it might not work exactly, but I know it's this method you want to be using.