Как сделать listbox/listview следующим образом

Question

Если кто-нибудь может помочь каждому составить список или список, как на картинке ниже?

Спасибо Image1 image2

Answer 1

Я использую Microsoft Windows Common Controls 6,0

добавить ListView и ImageList

ImageList добавить один снимок

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 

вы можете получить