VB程序员高手，求教，求教，如何在VB中Listview里添加图标的点击事件，

你在向Listview里添加列表项之后 ,每个列表项都会有一个名称和索引,并且索引是唯一的,你可以根据索引值,在ListView1_ItemClick事件中为它们的点击事件编程.

如下

Private Sub Form_Load()

ListView1.ListItems.Add , , "目录A1", 1

ListView1.ListItems.Add , , "目录A2", 1

ListView1.ListItems.Add , , "目录A3", 1

ListView1.ListItems.Add , , "目录A4", 1

End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

Select Case Item.Index

Case 1

'第一个列表项单击事件处理

Case 2

'第二个列表项单击事件处理

Case 3

'第三个列表项单击事件处理

Case 4

'第四个列表项单击事件处理

'...........

End Select

End Sub

Private Sub Command1_Click()

Dim item As ListItem

        Set item = ListView1.ListItems.Add(, , Text1)

        item.SubItems(1) = Text2

        item.SubItems(2) = Text3

        item.SubItems(3) = Text4

End Sub

Private Sub Form_Load()

   With ListView1

    .View = lvwReport

    .ColumnHeaders.Add , , "a"

    .ColumnHeaders.Add , , "b"

    .ColumnHeaders.Add , , "c"

    .ColumnHeaders.Add , , "d"

  End With

End Sub

这个列表我也是刚学，只弄懂了怎么添加，列表的第一列是主项，通过ListItems.Add添加，其它列是该项目下子项，通过该主项的子项数组SubItems赋值，下标从1开始。

---