如何制作像这样的列表框/列表视图

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

你可以获得