标题：ListView控件
内容与特性
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   Files\VB\BIBLIO.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