Return the Row/Column of a Clicked ListView Item (Part II)

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Anonymous

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

The idea for this code originated from Leo Koach. I updated it to handle the case when the user horizontally scrolls the listview and clicks a cell.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
'API STUFF Private Declare Function GetScrollPos Lib "user32" _ (ByVal hwnd As Long, ByVal nBar As Long) As Long Private Const SB_HORZ = 0 Dim lvX As Long

Code:

Private Sub Lv1_MouseDown(Button As Integer, Shift As Integer, _
                          x As Single, y As Single)
   lvX = x
End Sub

Public Function GetRowColumn(ByVal Item As MSComctlLib.ListItem, 
                             ByRef lv As ListView) As Long()
    Dim ColH As ColumnHeader
    Dim pix As Long
    Dim Index As Long
    Dim ret(0 To 1) As Long
    Dim XVal As Long
    
    'Use the API to get the scroll bar's pixel position
    XVal = (GetScrollPos(lv.hwnd, SB_HORZ) * _
            Screen.TwipsPerPixelX) + lvX
    
    'Traverse each column until the X coordinate we clicked on
    'becomes less then the total of the traversed columns'
    'widths.
    For Each ColH In lv.ColumnHeaders
        pix = pix + ColH.Width
        If (pix >= XVal) Then Exit For
        Index = Index + 1
    Next
    
    'Return row and column in a 2D array
    ret(0) = Item.Index - 1
    ret(1) = Index
    GetRowColumn = ret
End Function

Private Sub lv1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Dim arr() As Long

arr = GetRowColumn(Item, lv1)

MsgBox "Row: " & CStr(arr(0)) & vbCr & "Column: " + _
           CStr(arr(1)), vbInformation
End Sub