ListView 如果使用 Report 样式，能否在每个Item 中显示一个 Icon ？

[fxy_2002]

资源管理器好象可以：选择“详细资料”，所有文件名前都有一个小图标。

ListView 能否这样？
我知道 ListView1.View = lvwIcon 或 LvwSmallIcon 时是可以的。
ListView1.View = lvwReport 能否？如果能，应该怎么搞？

[xiaoyuanzhi]

关注

[lxcc]

'增加一个imageList控件
Private Sub Form_Load()
Dim itemx As ListItem
With ListView1
.ColumnHeaders.Add , , "序号"
.ColumnHeaders.Add , , "文件路径及名称"
.FullRowSelect = True
.GridLines = True
.HotTracking = True
.HoverSelection = True
.SmallIcons = ImageList1
.Icons = ImageList1
Set itemx = .ListItems.Add(, , "1", 1)
itemx.SubItems(1) = "c:\db.txt"
Set itemx = .ListItems.Add(, , "2", 1)
itemx.SubItems(1) = "c:\1.bmp"
.View = lvwReport
End With
End Sub

[lxcc]

'增加一个imageList控件
Private Sub Form_Load()
Dim itemx As ListItem
With ListView1
.ColumnHeaders.Add , , "序号"
.ColumnHeaders.Add , , "文件路径及名称"
.FullRowSelect = True
.GridLines = True
.HotTracking = True
.HoverSelection = True
.SmallIcons = ImageList1
.Icons = ImageList1
Set itemx = .ListItems.Add(, , "1", 1)
itemx.SubItems(1) = "c:\db.txt"
Set itemx = .ListItems.Add(, , "2", 1)
itemx.SubItems(1) = "c:\1.bmp"
.View = lvwReport
End With
End Sub

[fxy_2002]

谢谢楼上，搞定。

不过问题很怪了：我在设计器里的 image lists 页中已设置了 icon=imagelist1,smallicon=imagelist1，保存不了。（非得在代码中指定！）

造成我的 itemx.smallicon=1 这句话总出错，还以为是 listview report样式时不可以。