Simulating Hot Tracking in a List Box [resolved]

[freewilly]

Hi team, does anyone know how to simulate hot tracking in a list box.

My list box responds to a right click, but the right click does not select the list item that was right clicked. The ListIndex property remains set the list item that was last left clicked.

Basically, I need to ensure the list boex's ListIndex is set to the list item that was right clicked.

I thought hot tracking would solve the problem. Any other ideas how to solve this?

Thanks

FW

[peet]

Option Explicit
Private Declare Function LBItemFromPt Lib "comctl32.dll" (ByVal hLB As Long, ByVal ptx As Integer, ByVal pty As Integer, ByVal bAutoScroll As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
    X As Long
    Y As Long
End Type
 
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim nPos As Integer
    Dim PtAPI As POINTAPI
 
    If Button = 2 Then
        GetCursorPos PtAPI
        List1.Selected(LBItemFromPt(List1.hWnd, PtAPI.X, PtAPI.Y, 0)) = True
    End If
End Sub

[Bruce Fox]

Too quick there peet (G'Day too!)



Bruce.

[freewilly]

Thanks guys

[peet]

your welcome

morning bruce

[mendhak]

Where's the cheerleader??

[peet]

morning frog

[mendhak]

Afternoon and sands.