VB6 da la possibilità di inserire immagini nelle
ListView, tramite la proprietà
ReportIcon, le immagini possono essere caricate in una
ImageList sia in progettazione che in runtime, come aveva detto Oregon all'inizio, ma non è difficile.
barcode.gif
Private Sub Form_Load()
Me.ScaleMode = vbPixels ' misura in pixel
ListView1.SmallIcons = ImageList1 ' dove sono le immagini 110x60, puoi scegliere qualsiasi dimensione
' ne ho inserite 10 da progettazione, le ho numerate per identificarle
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Dummy", 0 ' colonna 0, nascosta evita l'edit
ListView1.ColumnHeaders.Add , , "Articolo" ' Header colonna 1
ListView1.ColumnHeaders.Add , , "Codice" ' Header colonna 2
ListView1.ColumnHeaders.Item(3).Alignment = lvwColumnCenter ' allineamento colonna 2
ListView1.ColumnHeaders.Add , , "Barcode", ImageList1.ImageWidth ' Header colonna 3, stessa larghezza delle immagini
For k = 1 To 10 ' aggiungo 10 righe con tre colonne
Set itm = ListView1.ListItems.Add(, , "") ' per aggiungere nuovo item
itm.SubItems(1) = "Articolo n. " & k ' colonna 1
itm.SubItems(2) = CStr(k * 1333) ' colonna 2
itm.SubItems(3) = "" ' colonna 3, se si immette il testo va a destra dell'immagine
itm.ListSubItems(3).ReportIcon = k ' colonna 3 immagine k
Next
End Sub
Se ti servono ulteriori info, chiedi pure