LISTVIEW

LISTVIEW

ListView 控制項可使用四種不同視圖顯示項目。通過此控制項,可將項目組成帶有或不帶有列標頭的列,並顯示伴隨的圖示和文本。 可使用 ListView 控制項將稱作 ListItem 對象的列表條目組織成下列四種不同的視圖之一:1.大(標準)圖示2.小圖示3.列表4.報表 View 屬性決定在列表中控制項使用何種視圖顯示項目。還可用 LabelWrap 屬性控制列表中與項目關聯的標籤是否可換行顯示。另外,還可管理列表中項目的排序方法和選定項目的外觀。

基本信息

屬性

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

該控制項在WEB中也非常好用,是.net3.5中新出現的控制項,幾乎可以代替其他展示控制項,而且和DATAPAGER控制項的配合也非常完美。可以做出很好的的分頁效果。

相關詞條

相關搜尋

熱門詞條

聯絡我們