如何在listview控件中显示不同的图标.txt

VB技巧问答10000例 VB技巧问答10000例

要 显 示 不 同 的 图 标 需 要 两 点 ， 一 是 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 
<END>