vb中当listview属性为lvwReport时,如何在表中显示图标

Question

设置小图标。
  listview1.listitem(1).SmallIcon =....

Answer 1

设置Listview的图像列表
包括普通、小土表、列标头
        lvwMain.ListItems.item(lvwMain.SelectedItem.Index).SmallIcon = 6
Dim imlItem As ListImage
 'Set up ImageList for ColumnHeaders
    imlColumnHeaderIcons.ImageHeight = 12
    imlColumnHeaderIcons.ImageWidth = 12
    Set imlItem = imlColumnHeaderIcons.ListImages.Add(, , LoadResPicture(101, vbResBitmap))
    Set imlItem = imlColumnHeaderIcons.ListImages.Add(, , LoadResPicture(102, vbResBitmap))
    'Set up ListView
    lvwMain.View = lvwReport
    lvwMain.ColumnHeaderIcons = imlColumnHeaderIcons
    lvwMain.Arrange = lvwAutoTop
    lvwMain.LabelEdit = lvwManual

Answer 2

该语句错误  Set Item = imagelist.ListItems.Add(, , "aaa", 1)
你的这个 1 是大图标，是 Icon 式样的图标
应该是      Set Item = imagelist.ListItems.Add(, , "aaa", ,1)

Answer 3

288794说的对,在ADD的方法参数中有SMALLICON的选项

Answer 4

Dim Item As ListItem
Set Item = ListView1.ListItems.Add(, , "aaa", , 1)
在listview1中的图象列表属性的小图标属性引用imagelist1
且listview1中的Image lists 的small设为Imagelist1

Answer 5

再說一個給SubItems添加Icon的方法
    Dim itmX As ListItem
    itmX.ListSubItems.Add , "Key", "Text", "Icon", "ToolTipText"