Return the Row/Column of a Clicked ListView Item

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Leo Koach

Version Compatibility: Visual Basic 6, Visual Basic 5

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

Declarations:
' #VBIDEUtils#*************************************************** ' * Programmer Name : Leo Koach ' * Web Site : http://www.vbonly.com ' * E-Mail : ' * Date : 8/7/2000 ' *************************************************************** ' * Comments : How to get the Row / Column of a ' * Listview Control ' * ' * ' * ' ********************************************************* Option Explicit Private Col As Single

Code:

Public Function GetRowColumn(ByVal Item As _
MSComctlLib.ListItem) As String
 
 Dim ColH             As ColumnHeader
 Dim Index            As Long
 
 For Each ColH In ListView1.ColumnHeaders
      If Col > (ColH.Left + ListView1.Left) And _
        Col < (ColH.Left + ListView1.Left + ColH.Width) Then
         'Found the column
         Index = ColH.Index
         Exit For
      End If
   Next
GetRowColumn = "Row:" & Item.Index & "  Column:" & Index
End Function

'You can use the following code to test this.
'Place this code on the same form

Private Sub ListView1_ItemClick(ByVal Item As _
  MSComctlLib.ListItem)
 MsgBox (GetRowColumn(Item))
End Sub

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   Col = x
End Sub

Private Sub Form_Load()
   Dim itmx             As ListItem
  ListView1.ColumnHeaders.Add , , "One"
   ListView1.ColumnHeaders.Add , , "Two"
   ListView1.ColumnHeaders.Add , , "Three"
   ListView1.View = lvwReport
   ListView1.FullRowSelect = True
   
   Set itmx = ListView1.ListItems.Add(, , "one")
   itmx.SubItems(1) = "two"
   itmx.SubItems(2) = "three"

Set itmx = ListView1.ListItems.Add(, , "one")
   itmx.SubItems(1) = "two"
   itmx.SubItems(2) = "three"

Set itmx = ListView1.ListItems.Add(, , "one")
   itmx.SubItems(1) = "two"
   itmx.SubItems(2) = "three"
   Set itmx = ListView1.ListItems.Add(, , "one")
   itmx.SubItems(1) = "two"
   itmx.SubItems(2) = "three"
End Sub