ListView 控件可使用四种不同视图显示项目。通过此控件，可将项目组成带有或不带有列标头的列，并显示伴随的图标和文本。 可使用 ListView 控件将称作 ListItem 对象的列表条目组织成下列四种不同的视图之一：1.大（标准）图标2.小图标3.列表4.报表 View 属性决定在列表中控件使用何种视图显示项目。还可用 LabelWrap 属性控制列表中与项目关联的标签是否可换行显示。另外，还可管理列表中项目的排序方法和选定项目的外观。

ListView控件包括ListItem和ColumnHeader对象。ListItem对象定义ListView控件中项目的各种特性，诸如项目的简要描述、由ImageList控件提供的与项目一起出现的图标和附加的文本片段（称作子项目，它们与显示在报表视图中的ListItem对象关联）。

下面按字母顺序列出了ListView控件的所有属性，可以按Ctrl+F查找。

AllowColumnReorder属性：返回或设置一个值，决定用户是否可以用鼠标对列进行重新排列。

语法：Object.AllowColumnReorder [ = Boolean]

Appearance属性：返回或设置对象的绘图风格，在运行时是只读的。

语法：Object.Appearance

Arrange属性：返回或设置一个值，此值决定如何排列ListView控件中的图标或小图标视图。

语法：Object.Arrange [ = Value]

BackColor属性：返回或设置对象的背景颜色。

语法：Object.BackColor [ = Color]

BorderStyle属性：返回或设置对象的边框样式。0表示无边框，1表示有边框。

语法：Object.BorderStyle [ = Value]

CheckBoxes属性：返回或设置一个值，确定是否显示复选框。

语法：Object.Checkboxes [ = Boolean]

ColumnHeaderIcons属性：返回或者设置Imagelist控件，该控件为ColumnHeaders集合提供图标。

语法：Object.ColumnHeaderIcons [ = ImageList]

ColumnHeaders属性：返回ColumnHeader对象集合的引用。

语法：Object.ColumnHeaders

Container属性：返回或设置Form上控件的容器。在设计时不能使用。

语法：Set Object.Container [ = Container]

DragIcon属性：返回或设置图标，它将在拖放操作中作为指针显示。

语法：Object.DragIcon [ = Icon]

DragMode属性：返回或设置一个值，确定在拖放操作中所用的是手动还是自动拖动方式。

语法：Object.DragMode [ = Number]

DropHighlight属性：返回或设置对Node或ListItem对象的引用，在光标移动到该对象上时，它就被突出显示为系统的突出颜色。

语法：Object.DropHighlight [ = Node / ListItem]

Enabled属性：返回或设置一个值，用来决定窗体或控件是否能够对用户产生的事件作出反应。

语法：Object.Enabled [ = Boolean]

FlatScrollBar属性：返回或设置一个值，确定对象中滚动条的外观。

语法：Object.FlatScrollBar [ = Boolean]

Font属性：返回一个Font对象。

语法：Object.Font

ForeColor属性：返回或设置在对象里显示图片和文本的前景颜色。

语法：Object.ForeColor [ = Color]

FullRowSelect属性：返回或设置一个值，决定是否选择整行。

语法：Object.FullRowSelect [ = Boolean]

GridLines属性：返回或设置一个值，决定在报表视图中ListView控件是否显示网格线。

语法：Object.GridLines [ = Boolean]

Height属性：返回或设置对象的高度。

语法：Object.Height [ = Number]

HelpContextID属性：为一个对象返回或设置一个相关联上下文的编号。它被用来为应用程序提供上下文有关的帮助。

语法：Object.HelpContextID [ = Number]

HideColumnHeaders属性：返回或设置是否在报表视图中隐藏ListView控件的ColumnHeader对象。

语法：Object.HideColumnHeaders [ = Boolean]

HideSelection属性：返回一个值，以决定当控件失去焦点时选择文本是否加亮显示。

语法：Object.HideSelection

HotTracking属性：该属性的返回值确定是否使用灵敏的鼠标高亮度显示功能。

语法：Object.HotTracking

HoverSelection属性：返回或设置一个值，确定当鼠标指针在ListItem对象上停留时，对象是否被选中。

语法：Object.HoverSelection [ = Boolean]

hWnd属性：返回窗体或控件的句柄。

语法：Object.hWnd

Icons属性：返回或设置与ListView控件中图标视图关联的ImageList控件。

语法：Object.Icons [ = Imagelist]

Index属性：返回控件在控件数组中的标识号。

语法：Object.Index

LabelEdit属性：返回或设置一个值，决定是否可以编辑在控件中的ListItem对象的标签。

语法：Object.LabelEdit [ = Integer]

LabelWrap属性：返回或设置一个值，此值决定当ListView控件为图标视图时标签是否可换行。

语法：Object.LabelWrap [ = Boolean]

Left属性：返回或设置对象内部的左边与它的容器的左边之间的距离。

语法：Object.Left [ = Value]

ListItems属性：返回控件中ListItem对象集合的引用。

语法：Object.ListItems

MouseIcon属性：返回或设置自定义的鼠标图标。

语法：Object.MouseIcon = LoadPicture(Pathname)或Object.MouseIcon [ = Picture]

MousePointer属性：返回或设置一个值，该值指示在运行时当鼠标移动到对象的一个特定部分时，被显示的鼠标指针的类型。

语法：Object.MousePointer [ = Value]

MultiSelect属性：返回或设置用户是否可以在控件中做多重选择。

语法：Object.MultiSelect [ = Boolean]

Name属性：返回用于标识控件的名字，在运行时是只读的。

语法：

Object属性：返回对象与对象的方法或属性的设置。

语法：Object.Object [.Property | .Method]

OLEDragMode属性：返回或设置是由部件还是由程序员来处理OLE拖放操作。

语法：Object.OLEDragMode [ = Mode]

OLEDropMode属性：返回或设置目标部件如何处理放操作。

语法：Object.OLEDropMode [ = Mode]

Parent属性：返回包含控件、或其它对象或者集合的窗体、对象、或集合。

语法：Object.Parent

Picture属性：返回或设置控件中要显示的图片。

语法：Object.Picture [ = Picture]

PictureAlignment属性：返回或设置一个值，确定对象中图片的对齐方式。

语法：Object.PictureAlignment [ = Integer]

SelectedItem属性：返回对所选ListItem的引用。

语法：Object.SelectedItem

SmallIcons属性：返回或设置与ListView控件中小图标视图关联的ImageList控件。

语法：Object.SmallIcons[ = Imagelist]

Sorted属性：返回或设置集合中的项目是否排序。

语法：Object.Sorted [ = Boolean]

SortKey属性：返回或设置一个值，决定控件中的ListItem对象如何排序。

语法：Object.SortKey [ = Integer]

SortOrder属性：返回或设置一个值，此值决定控件中的ListItem对象以升序或降序排列。

语法：Object.SortOrder [ = Integer]

TabIndex属性：返回或设置父窗体中控件的Tab键次序。

语法：Object.TabIndex [ = Index]

TabStop属性：返回或设置一个值，决定是否能够使用Tab键来将焦点移至该控件。

语法：Object.TabStop [ = Boolean]

Tag属性：返回或设置一个表达式用来存储程序中需要的额外数据。

语法：Object.Tag [ = Expression]

TextBackground属性：返回或设置ListItem对象的背景是透明的还是不透明的。

语法：Object.TextBackground [ = Integer]

ToolTipText属性：返回或设置一个工具提示。

语法：Object.ToolTipText [ = String]

Top属性：返回或设置对象的内顶部和它的容器的顶边之间的距离。

语法：Object.Top [ = Value]

View属性：返回或设置控件中ListItem对象的外观。

语法：Object.View [ = Value]

Width属性：返回或设置对象的宽度。

语法：Object.Width [ = Number]

用于控件的开始、结束或取消拖动操作。不支持命名参数。

语法：Object.Drag Action

查找并返回 ListView 控件中 ListItem 对象的引用。

语法：Object.FindItem (String, Value, Index, Match)

返回控件内部区域中第一个可视对象的引用。

语法：Object.GetFirstVisible( )

返回对位于x和y坐标的ListItem对象或Node对象的引用。通常与拖放操作一起使用，来确定放下的目标项在当前位置是否可用。

语法：Object.HitTest (x As Single, y As Single)

用以移动控件。不支持命名参数。

语法：Object.Move Left, Top, Width, Height

引起部件初始化OLE拖放操作。

语法：Object.OLEDrag

强制全部重绘一个窗体或控件。

语法：Object.Refresh

将焦点移至指定的控件或窗体。

语法：Object.SetFocus

提供“这是什么”弹出式窗口使用的帮助文件中选定的一个主题。

语法：Object.ShowWhatsThis

允许用户编辑标签。

语法：Object.StartLabelEdit

将控件放置在其图层的上下顺序的前端或后端。不支持命名参数。

语法：Object.ZOrder Position

添加ListItem对象到ListView控件的ListItems集合中并返回新创建对象的引用。

语法：Object.Add(Index, Key, Text, Icon, SmallIcon)

删除集合中的全部对象。

语法：Object.Clear

AfterLabelEdit事件：在编辑当前被选中的ListItem对象的标签之后该事件发生。

语法：Private Sub Object_AfterLabelEdit(Cancel As Integer, Cewstring As String)

BeforeLabelEdit事件：当试图编辑当前被选中的ListItem对象的标签时该事件发生。

语法：Private Sub Object_BeforeLabelEdit(Cancel As Integer)

Click事件：在控件上按下然后释放一个鼠标按钮时发生。

语法：Private Sub Object_Click [(Index As Integer)]

ColumnClick事件：单击控件中的ColumnHeader对象时，该事件发生。仅当控件的View属性为报表视图时可用。

语法：Private Sub Object_ColumnClick(ByVal ColumnHeader As ColumnHeader)

DblClick事件：当在控件上双击时，该事件发生。

语法：Private Sub Object_DblClick [(Index As Integer)]

DragDrop事件：在一个完整的拖放动作（即将一个控件拖动到一个对象上，并释放鼠标按钮）完成，或使用Drag方法，并将其Action参数被设置为2（Drop）时，该事件发生。

语法：Private Sub Object_DragDrop([Index As Integer, ] Source As Control, x As Single, y As Single)

DragOver事件：它在拖放操作正在进行时发生。可使用此事件对鼠标指针在一个有效目标上的进入、离开或停顿等进行监控。鼠标指针的位置决定接收此事件的目标对象。当State=0表示控件正被向一个目标范围内拖动；State=1表示控件正被向一个目标范围外拖动；State=2表示控件在目标范围内从一个位置移到了另一位置。

语法：Private Sub Object_DragOver([Index As Integer, ] Source As Control, x As Single, y As Single, State As Integer)

GotFocus事件：当对象获得焦点时产生该事件；获得焦点可以通过诸如Tab键切换，或单击对象之类的用户动作，或在代码中用SetFocus方法改变焦点来实现。

语法：Private Sub Object_GotFocus [(Index As Integer)]

ItemClick事件：单击控件中ListItem对象时事件发生。

语法：Private Sub Object_ItemClick(ByVal Item As ListItem)

KeyDown事件：对象具有焦点并按下一个键时发生。

语法：Private Sub Object_KeyDown([Index As Integer, ] Keycode As Integer, Shift As Integer)

KeyPress事件：对象具有焦点并按下或松开一个键时发生。

语法：Private Sub Object_KeyPress([Index As Integer, ] KeyAscii As Integer)

KeyUp事件：对象具有焦点并松开一个键时发生。

语法：Private Sub Object_KeyUp([Index As Integer, ] Keycode As Integer, Shift As Integer)

LostFocus事件：此事件是在一个对象失去焦点时发生，焦点的丢失可以是由于制表键移动或单击另一个对象操作的结果，或是代码中使用SetFocus方法改变焦点的结果。

语法：Private Sub Object_LostFocus [(Index As Integer)]

MouseDown事件：当按下鼠标按钮时发生。

语法：Private Sub Object_MouseDown([Index As Integer, ] Button As Integer, Shift As Integer, x As Single, y As Single)

MouseMove事件：当移动鼠标时发生。

语法：Private Sub Object_MouseMove([Index As Integer, ] Button As Integer, Shift As Integer, x As Single, y As Single)

MouseUp事件：当释放鼠标按钮时发生。

Private Sub Object _MouseUp([Index As Integer, ] Button As Integer, Shift As Integer, x As Single, y As Single)

OLECompleteDrag事件：当源部件被放到目标部件时发生，并通知源部件拖放操作被执行或取消。

语法：Private Sub Object_OLECompleteDrag [(Effect As Long)]

OLEDragDrop事件：当源部件决定放操作能发生，且源部件被放到目标部件时，此事件发生。

语法：Private Sub Object_OLEDragDrop(Data As DataObject, effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)

OLEDragOver事件：当一个部件在另一个部件上拖动时发生。

语法：Private Sub Object_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)

OLEGiveFeedback事件：在每个OLEDragOver事件后发生

语法：Private Sub Object_OLEGiveFeedback(Effect As Long，DefaultCursors As Boolean)

OLESetData事件：当目标部件在源的DataObject对象上执行GetData方法，但是还没有加载规定格式的数据之前，在源部件上发生。

语法：Private Sub Object_OLESetData(Data As DataObject, Dataformat As Integer)

OLEStartDrag事件：当部件的OLEDrag方法被执行时，或者在OLEDragMode属性被设为Automatic，部件初始化OLE拖放操作时发生。

语法：Private Sub Object_OLEStartDrag(Data As DataObject, Allowedeffects As Long)

Validate事件：在焦点转换到一个控件之前发生，此时该控件的CausesValidation属性值设置为True。

语法：Private Sub Object_Validate(KeepFocus As Boolean)

下面的示例使用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. _

ListView1.ColumnHeaders. _

lvwColumnCenter

ListView1.ColumnHeaders. _

' 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) _

Set myRs = _

'声明变量以添加 ListItem 对象。

Dim itmX As ListItem

'若当前记录不是最后一条记录，则添加一个 ListItem 对象。

'ListItem 对象的文本使用 author 字段。

'ListItem 对象的 SubItem(1) 使用 AuthorID 字段。

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包含文本和相关图标（ListImage对象）的索引，除此之外，当它为报表视图时，ListItem还包含代表子项目的字符串数组。

ListItems集合包含一个或多个ListItem对象。根据标准的集合语法，可以用ListView.ListItems引用集合，而ListView.ListItems(Index)引用集合中的单个元素。其中的Index指示该ListItem的显示位置。

说明：

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( )

Next i

'添加 10 个具有相同图标的项目到列表中

For i = 1 To 10

Set itmX = ListView1.ListItems.Add( )

itmX.SmallIcon = 1

Next i

End Sub