如何在ListView控件中显示不同的图标
编号：QA001858
建立日期: 1999年10月14日 最后修改日期：1999年10月14日
所属类别：
Sandy:
VB6.0中有一个ListView控件，该控件有四种不同的视图，其中有一种视图方式是:大(标准)图标。用下述方式可以向该控件中添加图标。
ListView1.View = lvwIcon
Dim Rmg As ListImage
Set Rmg = ImageList1.ListImages.Add(, , LoadPicture(App.Path & "\house.bmp"))
ListView1.Icons = ImageList1
但该方式只可添加同一个图标,也就是说在该控件中显示的图标都是一样的。请问要想添加若干个不同的图标我该怎麽做？
回答:
要显示不同的图标需要两点，一是ImageList控件中有多个图标，二是ListItems中的每个项目的Icon设置不同。如：
ListView1.View = lvwIcon
Dim i
For i = 1 To 8
ImageList1.ListImages.Add , , LoadPicture( _
"e:\vb\icons\elements\moon0" & i & ".ico")
Next
ListView1.Icons = ImageList1
For i = 1 To 8
ListView1.ListItems.Add i, , "Moon " & i, i ' <-- 注意最后一个参数
Next
此问题由李海回答。
| |
|
|
| |
|
|
