VB Forum / General / September 2004

You discovered something that I never tried and are quite
correct in identifying a problem.
This might be a solution to your problem to generate what
the listindex would be:

Private Sub List1_MouseUp(Button As Integer, Shift As
Integer, X As Single, Y As Single)
 Label1.Caption = List1.TopIndex + Int(Y / 190)
End Sub

Here's a little Api code that that might help. The LB_ITEMFROMPOINT
message fetches the item index for a given position.

'declares...
Public Const LB_ITEMFROMPOINT = &H1A9&
Public Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
   (ByVal hWnd As Long, ByVal wMsg As Long, _
   ByVal wParam As Long, lParam As Any) As Long

'implementation...
Public Function LbItemFromPos(oLB As ListBox, _
   ByVal X As Long, ByVal Y As Long) As Integer
   'Returns index of item, or -1 if no item at position.
   Dim lXY As Long, lRet As Long
   
   With Screen
       'Y in hi word, X in low
       lXY = ((Y \ Screen.TwipsPerPixelY) * &H10000) _
       + (X \ Screen.TwipsPerPixelX)
   End With
   lRet = SendMessage(oLB.hWnd, LB_ITEMFROMPOINT, 0&, ByVal lXY)
   If lRet < 65535 Then '(hi word 0 = on an item)
       LbItemFromPos = CInt(lRet)
   Else 'nowhere
       LbItemFromPos = -1
   End If
End Function

'ex usage...
Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
   Dim nIndex As Integer
   
   If Button = vbRightButton Then
       nIndex = LbItemFromPos(List1, X, Y)
       If nIndex >= 0 Then
           Debug.Print "RtClick on " & nIndex
           'PopupMenu ..whatever
       End If
   End If
End Sub

-Tom
MVP - Visual Basic
(please post replies to the newsgroup)