关于ListView里添加图片问题~~~~~~~急!!~~急~~~

Question

如何在ListView里添加图片问题~~~~~~~急!!~~急~~~请高手指点.
Dim i As Long
Dim cr As ColumnHeader
Dim itm As ListItem
'ImageList1里的图片在设计时已添加
For i = 1 To 10
    Set itm = lv.ListItems.Add(, , Str(i),ImageList1.ListImages(i))<----在此加图片
Next i

Answer 1

出了什么错误，请说下你把ListView和Imagelist关联了没有？（在LV属性中指定）

Answer 2

把ListView和Imagelist关联
Set itm = lv.ListItems.Add（, key, text, 1, 2) 
1，2为Imagelist的图象的Index，也可以用Imagelist的图象的名称

Answer 3

1.在form中添加imagelist
2.在imagelist里面添加图片icon.  
3.把listview与imagelist关联。（在listview里面能看到的）
4. Set itm = lv.ListItems.Add(, , Str(i),1,2)
可以用index也可以用名称希望符合你的需求

Answer 4

你可用 listview1.selectitem.listitems(1).reporticon 动态地添加图标

Answer 5

image1图片已加好并引用
用listview1.selectitem.listitems(1).reporticon =0 取消添加
用listview1.selectitem.listitems(1).reporticon =1动态添加