ListView控件
ListView 控件可使用四种不同视图显示项目。通过此控件，可将项目组成带有或不带有列标头的列，并显示伴随的图标和文本。
可使用 ListView 控件将称作 ListItem 对象的列表条目组织成下列四种不同的视图之一：1.大（标准）图标2.小图标3.列表4.报表
View 属性决定在列表中控件使用何种视图显示项目。还可用 LabelWrap 属性控制列表中与项目关联的标签是否可换行显示。另外，还可管理列表中项目的排序方法和选定项目的外观。
ListView 控件包括 ListItem 和 ColumnHeader 对象。ListItem 对象定义ListView 控件中项目的各种特性，诸如：1.项目的简要描述。2.由 ImageList 控件提供的与项目一起出现的图标。3.附加的文本片段，称作子项目，它们与显示在报表视图中的 ListItem 对象关联。
属性
DropHighlight属性（ListView, TreeView控件），LabelEdit属性，SelectedItem属性（ActiveX控件），ColumnHeaderIcons属性，Checkboxes属性，FullRowSelect属性，AllowColumnRecorder属性，FlatScrollBar属性，GridLines属性（ListView控件），HoverSelection属性，PictureAlignment属性，HotTracking属性，TextBackground属性，Arrange属性（ListView控件），ColumnHeaders属性（ListView控件），HideColumnHeaders属性（ListView控件），Icons,SmallIcons属性，ListItems属性（ListView控件），LabelWrap属性（ListView控件），MultiSelect属性（ListView,TabStrip控件），SorKey属性（ListView控件），SortOrder属性（ListView控件），View属性（ListView控件），Sorted属性（ListView控件），TabIndex属性，DragIcon属性，DragMode属性，MouseIcon属性，TabStop属性，HelpContextID属性，Name属性，Parent属性，Font属性，Container属性，ToolTipText属性，WhatsThisHelpID属性，OLEDragMode属性（ActiveX控件），OLEDropMode属性（ActiveX控件），Picture属性（ActiveX控件），Height,Width属性（ActiveX控件），Index属性（ActiveX控件），Left, Top属性（ActiveX控件），Tag属性（ActiveX控件），Object属性（ActiveX控件），Appearance属性（ActiveX控件），BackColor, ForeColor属性（ActiveX控件），BorderStyle属性（ActiveX控件），Enabled属性（ActiveX控件），HideSelection属性（ActiveX控件），hWnd属性（ActiveX控件），MousePointer属性（ActiveX控件）。
方法
HitTest方法（ListView, TreeView控件），StartLabelEdit方法，FindItem方法（ListView控件），GetFirstVisible方法，SetFocus方法，Drag方法，Move方法，ZOrder方法，ShowWhatsThis方法，OLEDrag方法（ActiveX控件），Refresh方法（ActiveX控件）。
常用方法:
Add 方法 (ListItems、 ColumnHeaders)、ListItems 属性、SubItems 属性示例
下面的示例使用 Biblio.mdb 数据库作为资源，通过 ListItem 对象移居 ListView 控件。要试用此例，请将一个 ListView 控件放置在窗体上，并将代码粘贴到窗体的声明部分。
还必须确保已将 Biblio.mdb 安装在机器上。在以下代码中检查 OpenDatabase 函数中的路径，并改变它，使之反映 Biblio.mdb 在机器上的实际路径。
注意 除非添加到 Microsoft DAO 3.5 对象库的“引用”，否则示例无法运行。为此，在 Project 菜单上单击 References。搜索 Microsoft DAO 3.5 对象库并单击复选框来选择。
Private Sub Form_Load()
'添加 ColumnHeaders。列宽度等于控件宽度
'除以 ColumnHeader 对象的数目。
ListView1.ColumnHeaders. _
Add , , "Author", ListView1.Width / 3)
ListView1.ColumnHeaders. _
Add , , "Author ID", ListView1.Width / 3, _
lvwColumnCenter
ListView1.ColumnHeaders. _
Add , , "Birthdate", ListView1.Width / 3)
' Set View property to Report.
ListView1.View = lvwReport
'为数据访问对象声明对象变量。
Dim myDb As Database, myRs As Recordset
'设置 Database 为 BIBLIO.MDB 数据库。
' IMPORTANT: the Biblio.mdb must be on your
' machine, and you must set the correct path to
' the file in the OpenDatabase function below.
Set myDb = DBEngine.Workspaces(0) _
.OpenDatabase("c:Program FilesVBBIBLIO.MDB")
'设置 recordset 为 "Authors" 表。
Set myRs = _
myDb.OpenRecordset("Authors", dbOpenDynaset)
'声明变量以添加 ListItem 对象。
Dim itmX As ListItem
'若当前记录不是最后一条记录，则添加一个 ListItem 对象。
'ListItem 对象的文本使用 author 字段。
'ListItem 对象的 SubItem(1) 使用 AuthorID 字段。
'ListItem 对象的 SubItem(2) 使用 "Year of Birth" 字段。
While Not myRs.EOF
Set itmX = ListView1.ListItems. _
Add(, , CStr(myRs!Author),1) 'Author 字段。
'若 AuthorID 字段不为空，则将 SubItem 1 设置为此字段。
If Not IsNull(myRs!Au_id) Then
itmX.SubItems(1) = CStr(myRs!Au_id) ' Author ID。
End If
'若 birth 字段不为空，则将 SubItem 2 设置为此字段。
If Not IsNull(myRs![Year Born]) Then
itmX.SubItems(2) = myRs![Year Born]
End If
myRs.MoveNext '移动到下一条记录。
Wend
End Sub
ListItem 对象、ListItems 集合
ListItem 包含文本和相关图标（ListImage 对象）的索引，除此之外，当它为报表视图时，ListItem 还包含代表子项目的字符串数组。
ListItems 集合包含一个或多个 ListItem 对象。
语法
listview.ListItems
listview.ListItems(index)
根据标准的集合语法，上面的语法行分别引用集合和集合中的单个元素。
ListItem 对象，ListItems 集合的语法包含下面部分：
部分 描述
listview 对象表达式，其值是 ListView 控件。
index 唯一标识 ListItem 集合成员的整数或字符串。如果为整数，它将是 Index 属性的值；如果为字符串，它将是 Key 属性的值。
说明
ListItem 对象可包含文本和图片。然而，若要使用图片则必须通过 Icons 和 SmallIcons 属性引用 ImageList 控件。
也可使用 Icon 或 SmallIcon 属性变更图象。
下列示例说明了如何将 ColumnHeaders 对象和若干带有子项目的 ListItem 对象添加到 ListView 控件中。
Private Sub Form_Load()
Dim clmX As ColumnHeader
Dim itmX As ListItem
Dim i As Integer
For i = 1 To 3
Set clmX = ListView1.ColumnHeaders.Add()
clmX.Text = "Col" & i
Next i
'添加 10 个具有相同图标的项目到列表中
For i = 1 To 10
Set itmX = ListView1.ListItems.Add()
itmX.SmallIcon = 1
itmX.Text = "ListItem " & i
itmX.SubItems(1) = "Subitem 1"
itmX.SubItems(2) = "Subitem 2"
Next i
End Sub