怎样知道listview中当前的双击的列数据。

Question

见标题

Answer 1

Option Explicit
Dim a As Integer
Dim i As Integer
Dim itxm As ListItemPrivate Sub Form_Load()
    ListView1.View = lvwReport    ListView1.ColumnHeaders.Add , , "main"
    ListView1.ColumnHeaders.Add , , "sub1"    ListView1.ColumnHeaders.Add , , "sub2"
    ListView1.ListItems.Add , "test1", "test1"
    ListView1.ListItems("test1").SubItems(1) = "test1-1"    ListView1.ListItems("test1").SubItems(2) = "test1-2"
    ListView1.ListItems.Add , "test2", "test2"
    ListView1.ListItems("test2").SubItems(1) = "test2-1"
    ListView1.ListItems("test2").SubItems(2) = "test2-2"
    ListView1.FullRowSelect = True
    ListView1.GridLines = TrueEnd SubPrivate Sub ListView1_DblClick()
    Set itxm = Me.ListView1.SelectedItem
    MsgBox itxm.Text
    MsgBox itxm.SubItems(1)
    MsgBox itxm.SubItems(2)
End Sub