Hur lägger man in ikoner i en ListView från en ImageList?

Bin först imagelisten till ListView'n. Amntingen under design time i property fönstret eller i runtim med följand kod:
<code>
Set ListView1.Icons = ImageList1
Set ListView1.SmallIcons = ImageList2
Set ListView1.ColumnHeaderIcons = ImageList3

</code>
Du behäöver bara sätta de du använder. Om du bara visar detaljerad lista hela tiden behöver du inte ListView1.Icons.<br>
<br>
För att ange vilken icon en listitem har använder du argumenten Icon och/eller SmallIcon för Listitems.Add(). Eller någon av egenskaperna SmallIcon och eller Icon på ListItem objeket.

Jag har fått det där att fungera, men bara med en ikon + att de lägger sig framför varje kolumn post, går det att få den att lägga sig i en egen kolumn + att det är två st ikoner då? En Öppna och en Radera posten.

frmAdress.lstShowAdr.ListItems.Item(b).ListSubItems.Add , , rst(a), "Open", "Test"
Så lägger jag till ikonen idag, men det kanske inte är rätt sätt eller?

Anna-Karin

Jag får det inte att funkar riktigt, skulle inte nån kunna ge ett kodexempel?

Givetvis har jag ställt in ListView.SmallIcons.

Skriver jag enligt nedan får jag felmeddelandet "Index out of bounds"
lstItem.Icon = frmMain.imglstPriorityIcons.ListImages(0).ExtractIcon

Skriver jag istället så här så får jag felmeddelandet "Invalid key"
lstItem.ListSubItems.Item(1).ReportIcon = frmMain.imglstPriorityIcons.ListImages(0).ExtractIcon

Testa istället:
<code>
lstItem.SmallIcon = 1
lstItem.ListSubItems(1).ReportIcon = 1
</code>