怎样在VB listview 中添加 图标而不是图片？

以下是LISTVIEW的现实图标实例，添加一个LISTVIEW,一个imagelist控件，复制代码即可

ListView1.View

=

lvwIcon

'ListView1.View

=

lvwList

'ListView1.View

=

lvwReport

'ListView1.View

=

lvwSmallIcon

Set

ListView1.Icons

=

ImageList1

ListView1.ListItems.Add

1,

"实例",

"实例",

1

你在向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

---