-
LISTVIEW
鎖定
ListView 控件可使用四種不同視圖顯示項目。通過此控件，可將項目組成帶有或不帶有列標頭的列，並顯示伴隨的圖標和文本。 可使用 ListView 控件將稱作 ListItem 對象的列表條目組織成下列四種不同的視圖之一：1.大（標準）圖標2.小圖標3.列表4.報表 View 屬性決定在列表中控件使用何種視圖顯示項目。還可用 LabelWrap 屬性控制列表中與項目關聯的標籤是否可換行顯示。另外，還可管理列表中項目的排序方法和選定項目的外觀。
- 外文名
- LISTVIEW
- 類 型
- 控件
- 功 能
- 可使用四種不同視圖顯示項目
- 屬 性
- 計算機技術
LISTVIEW屬性
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控件）。
LISTVIEW方法
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語法
listview.ListItems
listview.ListItems(index)
根據標準的集合語法，上面的語法行分別引用集合和集合中的單個元素。
ListItem 對象，ListItems 集合的語法包含下面部分：
部分 描述
listview 對象表達式，其值是 ListView 控件。
index 唯一標識 ListItem 集合成員的整數或字符串。如果為整數，它將是 Index 屬性的值；如果為字符串，它將是 Key 屬性的值。
LISTVIEW説明
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
該控件在WEB中也非常好用，是.net3.5中新出現的控件，幾乎可以代替其他展示控件，而且和DATAPAGER控件的配合也非常完美。可以做出很好的的分頁效果。
