有关：ListView控件的问题。

Question

Set ListView1.ColumnHeaderIcons=ImageList1
ListView1.ColumnHeaders(索引).Icon=图标索引

Answer 1

上面的代码，我试了不行啊能写清楚点吗？
ListView1.ColumnHeaders(索引).Icon=图标索引这两个“索引”分别是什么呀！

Answer 2

ImageList1是一个ImageList控件
索引：列首的索引
图标索引：ImageList的图标索引

Answer 3

看错了，原来是行首
先将ImageList与ListView绑定
添加时：ListView.ListItem.Add ,Key,Text,大图标,小图标

Answer 4

怎么将ImageList与ListView绑定呢给个例子的代码吧，十分感谢，分必定给你。

Answer 5

Icon、SmallIcon、Icons、SmallIcons、View 属性示例
本示例将 Biblio.mdb 数据库中 Publishers 表的内容植入 ListView 控件。View 属性选项标注在四个 OptionButton 控件中。还必须将两个 ImageList 控件放置在窗体上：一个包含 Icon 属性的图象，另一个包含每个 ListItem 对象 SmallIcon 属性的图象。要试用此例，请将一个 ListView、一个包含四个 OptionButton 控件的控件数组和两个 ImageList 控件放置在窗体上，并将代码粘贴到窗体的声明部分。注意 必须使用“工具”菜单的“引用”命令添加 Microsoft DAO 3.0 对象库的引用，否则示例无法运行。运行示例并单击 ComboBox 控件来切换视图。Private Sub Option1_Click(Index as Integer)
   '设置 ListView 控件的 View 属性为
   ' Option1 的索引
   ListView1.View = Index
End SubPrivate Sub Form_Load()
   '为 ColumnHeader 对象创建对象变量。
   Dim clmX As ColumnHeader
   '添加 ColumnHeaders。列宽度等于控件的宽度
   '除以 ColumnHeader 对象的数目。
   Set clmX = ListView1.ColumnHeaders. _
   Add(, , "Company", ListView1.Width / 3)
   Set clmX = ListView1.ColumnHeaders. _
   Add(, , "Address", ListView1.Width / 3)
   Set clmX = ListView1.ColumnHeaders. _
   Add(, , "Phone", ListView1.Width / 3)
   
   ListView1.BorderStyle = ccFixedSingle '设置 BorderStyle 属性。
   ListView1.View = lvwReport '设置 View 属性为报表型。
   
   '添加一个图象到 ImageList1--图标 ImageList。
   Dim imgX As ListImage
   Set imgX = ImageList1.ListImages. _
   Add(, , LoadPicture("icons\mail\mail01a.ico"))
   '添加一个图象到 ImageList2--小图标 ImageList。
   Set imgX = ImageList2.ListImages. _
   Add(, , LoadPicture("bitmaps\assorted\w.bmp"))
   
   '若要将 ImageList 控件和 ListView 控件一起使用，必须
   '将 Icons 和 SmallIcons 属性
   '与特定的 ImageList 控件关联。
   ListView1.Icons = ImageList1
   ListView1.SmallIcons = ImageList2
   '用 View 选项标注 OptionButton 控件。
      Option1(0).Caption = "Icon"
      Option1(1).Caption = "SmallIcon"
      Option1(2).Caption = "List"
      Option1(3).Caption = "Report"
      ListView1.View = lvwIcon '设置为图标视图
   
   '为数据访问对象创建对象变量。
   Dim myDb As Database, myRs As Recordset
   '设置数据库为 BIBLIO.MDB 数据库。
   Set myDb = DBEngine.Workspaces(0).OpenDatabase("BIBLIO.MDB")
   '设置 recordset 为 Publishers 表。
   Set myRs = myDb.OpenRecordset("Publishers", dbOpenDynaset)
   
   '为添加 ListItem 对象创建变量。
   Dim itmX As ListItem   '若当前记录不是最后一条记录，则添加 ListItem 对象。
   'ListItem 对象的文本使用 Name 字段。
   'ListItem 对象的 SubItem(1) 使用 Address 字段。
   'ListItem 对象的 SubItem(2) 使用 Phone 字段   While Not myRs.EOF
      
      Set itmX = ListView1.ListItems.Add(, , CStr(myRs!Name))
      itmX.Icon = 1   '设置 ImageList1 中的一个图标。
      itmX.SmallIcon = 1   '设置 ImageList2 中的一个图标。      '若 Address 字段不为空，则设置 SubItem 1 为此字段。
      If Not IsNull(myRs!Address) Then
         itmX.SubItems(1) = CStr(myRs!Address) 'Address 字段。
      End If
         
      '若 Phone 字段不为空，则设置 SubItem 2 为此字段。
      If Not IsNull(myRs!Telephone) Then
         itmX.SubItems(2) = myRs!Telephone  'Phone 字段。
      End If
         
      myRs.MoveNext  '移动到下一条记录。
   Wend
End Sub