I use Microsoft Windows Common Controls 6.0
add ListView and ImageList
ImageList add one picture
Private Sub Form_Load()
'init the view
ListView1.View = lvwSmallIcon
ListView1.View = lvwIcon
'init the listview
ListView1.ColumnHeaders.Add , "Filename", "Filename"
' pick one of two
ListView1.SmallIcons = ImageList1
ListView1.Icons = ImageList1
'set the value
Set Item = ListView1.ListItems.Add(1, "aaa", "aaa", 1, 1)
Set Item = ListView1.ListItems.Add(2, "bbb", "bbb", 1, 1)
End Sub
Collected from the Internet
Please contact [email protected] to delete if infringement.
Comments