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

[ufo010et]

如何在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

[射天狼]

到我的网站上看看，有源码！！

http://www.j2soft.cn/

VB资料->查询“电话本系统”；

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
学习技巧与源码下载站：
http://www.j2soft.cn/
http://j2soft.008.net/

[Featured]

出了什么错误，请说下

你把ListView和Imagelist关联了没有？（在LV属性中指定）

[feiyun0112]

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

[clear_zero]

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

希望符合你的需求

[ufo010et]

试过了，怎么用代码绑定图片，最好能给出代码。谢谢！！

[muchyong]

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

[muchyong]

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

[ufo010et]

谢谢大家!!!

[ufo010et]

谢谢啦