ListView控件屬性與方法

1、ListView 控件可以用來顯示各項(xiàng)帶圖標(biāo)的列表，也可以用來顯示帶有子項(xiàng)的列表，Windows操作系統(tǒng)的資源管理器中文件夾窗口就是最好的應(yīng)用例子。如下圖一所示就是“我的電腦”中使用ListView 控件來顯示本機(jī)所有盤符：圖片說明：可以通過“查看”菜單來觀察其它三種顯示方式，這些都是ListView的視圖模式之一。下面我們就先來了解下ListView控件的基本應(yīng)用，在中的工具箱中，ListView 控件的圖標(biāo)如下圖二所示：圖片一、View 屬性ListView 控件作為一個(gè)可以顯示圖標(biāo)或者子項(xiàng)的列表控件，它最重要的屬性就是 View 屬性，該屬性決定了以哪種視圖模式顯示控件的項(xiàng)，這四種視圖模

2、式分別如下：1、LartIcon：大圖標(biāo)視圖模式，在項(xiàng)的文本旁顯示大的圖標(biāo)，在控件寬度足夠的情況下，項(xiàng)是如圖一中的盤符一樣優(yōu)先以平行排列的，排列不完的則自動(dòng)換行顯示在新行中。2、SmallIcon：小圖標(biāo)視圖模式，與大圖標(biāo)模式一樣，但是顯示的是小的圖標(biāo)。3、List：列表視圖模式，顯示小圖標(biāo)，但是項(xiàng)是垂直排列的，只顯示單列。4、Details：詳細(xì)資料視圖模式，是最豐富的選項(xiàng)，它不但允許您查看項(xiàng)，還允許您查看為各項(xiàng)指定的任何子項(xiàng)。各項(xiàng)在網(wǎng)格中顯示，它們垂直排列且其子項(xiàng)會(huì)顯示在列中（帶有列標(biāo)頭）。對(duì)應(yīng)地，只有在Details 視圖模式中起作用的控件屬性為：GridLines 和 FullRowS

3、elect，GridLines 屬性指示在包含控件中項(xiàng)及其子項(xiàng)的行和列之間是否顯示網(wǎng)格線。FullRowSelect 屬性指示單擊某項(xiàng)是否選擇其所有子項(xiàng)(即整行選中)，如下圖三所示便是GridLines 和 FullRowSelect 屬性都設(shè)置為True的情況：圖片ListView 控件中還有一個(gè)HeaderStyle 屬性也是在Details 視圖模式下才起作用，HeaderStyle 屬性指示列標(biāo)頭樣式，它有下面三種顯示樣式：1、Clickable：列標(biāo)頭的作用類似于按鈕，單擊時(shí)可以執(zhí)行操作（例如排序）。2、Nonclickable：列標(biāo)頭不響應(yīng)鼠標(biāo)單擊。3、None：列標(biāo)頭在報(bào)表視圖中

4、不顯示。二、Items 屬性此外，ListView 控件最重要的屬性是 Items 屬性，它包含了控件所有的存在的項(xiàng)。SelectedItems 屬性是控件當(dāng)前選定項(xiàng)的集合，同時(shí)和它關(guān)聯(lián)的 SelectedIndices 屬性是控件中選定項(xiàng)的索引集合，如下示例所示，我們分別在SelectedItems 屬性和SelectedIndices 屬性中獲取所選項(xiàng)索引，窗體上拖放了ListView控件和一個(gè)Button 控件，且已經(jīng)往ListView控件中添加了若干列和行，代碼如下：Private Sub Button1_Click(ByVal sender As System.Object, ByV

5、al e As System.EventArgs) Handles Button1.Click Dim i As Integer = 0Dim str As String = ""For i = 0 To ListView1.SelectedItems.Count - 1str = str & "選中項(xiàng)索引=" & ListView1.SelectedItems.Item(i).Index.ToString & "；"str = str & "在控件中的索引=" & List

6、View1.SelectedIndices.Item(i).ToString & vbCrNextMessageBox.Show(str)End Sub運(yùn)行后顯示效果如下圖四所示：圖片兩個(gè)屬性都能獲得所選項(xiàng)在控件中的索引，我們?cè)趯?shí)際應(yīng)用的時(shí)候可以靈活選擇使用它們中的一個(gè)，以達(dá)到簡(jiǎn)化代碼的目的。三、ListView 的其他重要屬性ListView 控件還有一些比較常用的重要屬性1、Activation 屬性Activation 屬性指定用戶激活 ListView 控件中的項(xiàng)的方式，它包括三個(gè)可選值：OneClick：用戶必須單擊以激活項(xiàng)。光標(biāo)更改為手形指針光標(biāo)，項(xiàng)文本在用戶將鼠標(biāo)指針移動(dòng)

7、到項(xiàng)上時(shí)更改顏色。Standard：用戶必須雙擊以激活項(xiàng)。在用戶將鼠標(biāo)指針移動(dòng)到項(xiàng)上時(shí)沒有提供任何反饋。TwoClick：用戶必須雙擊以激活項(xiàng)，項(xiàng)文本在用戶將鼠標(biāo)指針移動(dòng)到項(xiàng)上時(shí)更改顏色。激活 ListView 中的項(xiàng)與只選擇項(xiàng)是不同的。當(dāng)激活某個(gè)項(xiàng)時(shí)，通常會(huì)在 ItemActivate 事件的事件處理程序中執(zhí)行一個(gè)操作。例如，當(dāng)激活某個(gè)項(xiàng)時(shí)，您可能會(huì)打開一個(gè)文件或顯示一個(gè)允許用戶對(duì)項(xiàng)進(jìn)行編輯的對(duì)話框。通常，項(xiàng)的激活是通過用戶對(duì)它進(jìn)行雙擊來實(shí)現(xiàn)的。如果 Activation 屬性設(shè)置為 OneClick，那么單擊該項(xiàng)一次即可將其激活。將 Activation 屬性設(shè)置為 TwoClick 與標(biāo)

8、準(zhǔn)的雙擊不同，這是因?yàn)閮纱螁螕糁g的時(shí)間間隔可以是任意的。注意 如果將 Activation 屬性設(shè)置為 ItemActivation.OneClick 或 ItemActivation.TwoClick，則不管 LabelEdit 屬性的值是什么，都不允許進(jìn)行標(biāo)簽編輯。設(shè)置 Activation 屬性實(shí)際上就是決定以何種方式來觸發(fā) ItemActivate 事件，如果我們需要在激活項(xiàng)的時(shí)候進(jìn)行額外的操作，例如彈出一個(gè)關(guān)聯(lián)的對(duì)話框來，則可以在 ItemActivate 事件中編寫合適代碼來完成，如下代碼所示：Private Sub ListView1_ItemActivate(ByVal se

9、nder As Object, ByVal e As System.EventArgs) Handles ListView1.ItemActivate MessageBox.Show("你想做什么")'可以在這里添加我們需要的操作End Sub代碼運(yùn)行后，我們激活選項(xiàng)，如下圖五所示：圖片2、LabelEdit 屬性LabelEdit 屬性指示用戶是否可以編輯控件中項(xiàng)的標(biāo)簽。當(dāng) LabelEdit 屬性設(shè)置為 true 時(shí)，用戶可以單擊項(xiàng)文本，將其選中，然后再次單擊項(xiàng)文本，將標(biāo)簽文本置于編輯模式，然后，用戶可以修改或替換項(xiàng)的文本標(biāo)簽。在用戶編輯項(xiàng)文本之前和之后，您可以

10、使用 BeforeLabelEdit 和 AfterLabelEdit 事件來執(zhí)行任務(wù)。如果該屬性設(shè)置為 true，則無法修改子項(xiàng)的文本。要更改子項(xiàng)的文本，您可以在用戶雙擊控件中的子項(xiàng)時(shí)為其顯示對(duì)話框。3、LabelWrap 屬性LabelWrap 屬性指示當(dāng)項(xiàng)作為圖標(biāo)在控件中顯示時(shí)，項(xiàng)標(biāo)簽是否換行。當(dāng) LabelWrap 屬性設(shè)置為 true 時(shí)，如果需要，項(xiàng)文本會(huì)換至文本的下一行。如果文本長(zhǎng)于兩行，則文本將縮短。如果用戶選擇了該項(xiàng)，則顯示所有項(xiàng)文本。如果 LabelWrap 屬性設(shè)置為 false，則所有項(xiàng)文本都將顯示在單獨(dú)一行中。整個(gè)項(xiàng)文本在 LabelWrap 設(shè)置為 false 時(shí)顯

11、示。只有在 View 屬性設(shè)置為 LargeIcon 或 SmallIcon 時(shí)才使用該屬性。4、MultiSelect 屬性MultiSelect 屬性指示是否可以選擇多個(gè)項(xiàng)。當(dāng) MultiSelect 屬性設(shè)置為 true 時(shí)，可在 ListView 控件中選擇多個(gè)項(xiàng)。5、Scrollable 屬性Scrollable 屬性指示在沒有足夠空間來顯示所有項(xiàng)時(shí)，是否顯示滾動(dòng)條。6、Sorting 屬性Sorting 屬性指示控件中項(xiàng)的排序順序。Sorting 屬性允許指定項(xiàng)在 ListView 控件中是否排序。默認(rèn)情況下，不執(zhí)行排序。當(dāng) Sorting 屬性設(shè)置為 Ascending 或 De

12、scending 時(shí)，ListView 中的項(xiàng)自動(dòng)按照升序字母順序（當(dāng)屬性設(shè)置為 Ascending 時(shí)）或降序字母順序（當(dāng)屬性設(shè)置為 Descending 時(shí)）進(jìn)行排序。您可以使用該屬性對(duì) ListView 控件中顯示的項(xiàng)進(jìn)行自動(dòng)排序，使用戶在大量項(xiàng)可用時(shí)更容易查找到項(xiàng)。如果您要自己執(zhí)行對(duì)項(xiàng)的排序，而不使用 Sorting 屬性，可與 Sort 方法一起使用 ListViewItemSorter 屬性。7、LargeImageList 屬性LargeImageList 屬性設(shè)置當(dāng)項(xiàng)以大圖標(biāo)在控件中顯示時(shí)使用的 ImageList。8、SmallImageList 屬性SmallImageLi

13、st 屬性設(shè)置當(dāng)項(xiàng)以小圖標(biāo)在控件中顯示時(shí)使用的 ImageList。上面我們了解了ListView 的一些主要屬性，下面我們來看如何使用它。四、向ListView 控件添加項(xiàng)1、我們可以使用ListViewItem集合編輯器來為控件添加項(xiàng)方法是在ListView 控件的屬性窗口中選擇Items屬性。2、還可以使用 ListView 控件的Items.Add()方法來為它添加新的項(xiàng)，Add()方法的格式如下：Add(text,imageIndex)text 為要添加項(xiàng)所顯示的文本imageIndex 為可選參數(shù)，指示所對(duì)應(yīng)ImageList中的圖標(biāo)索引示例：為窗體添加一個(gè)ListView 控件，

14、一個(gè)ImageList 控件，一個(gè)Button控件，然后在代碼編輯器中添加如下代碼:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim mItem As ListViewItemDim i As Integer = 0ListView1.LargeImageList = Me.ImageList1ListView1.View = View.LargeIconFor i = 0 To 3ListView1.Items.Add(

15、"Item " & i, i)NextEnd Sub運(yùn)行后，單擊按鈕，效果如下圖六所示：圖片也可以使用如下代碼來添加Item，其運(yùn)行效果是一樣的：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListView1.LargeImageList = Me.ImageList1ListView1.View = View.LargeIconDim item0 As New ListViewItem(&quo

16、t;item 0", 0)Dim item1 As New ListViewItem("item 1", 1)Dim item2 As New ListViewItem("item 2", 2)Dim item3 As New ListViewItem("item 3", 3)ListView1.LargeImageList = Me.ImageList1ListView1.Items.AddRange(New ListViewItem() item0, item1, item2, item3)End Sub五、為L(zhǎng)istV

17、iew 控件添加列標(biāo)題當(dāng)我們使用ListView 控件的Details 視圖模式的時(shí)候，就必須為控件添加對(duì)應(yīng)的列標(biāo)題，才能顯示出它所有的項(xiàng)。1、視圖模式下添加列標(biāo)題一般我們顯示一個(gè)列表的時(shí)候，其列標(biāo)題都應(yīng)該是固定的，所以我們可以在視圖模式中預(yù)先設(shè)置好列標(biāo)題，這樣比較直觀。 先選中ListView 控件，然后在它的屬性窗口中找到 Columns 屬性，單擊后面的省略符號(hào)，如下圖七所示：圖片然后在彈出的集合編輯器中添加和刪除列標(biāo)題即可，我們可以在編輯器的右邊中編輯對(duì)應(yīng)的列顯示的文本、寬度以及文字對(duì)齊方式，如下圖八所示：圖片添加完列標(biāo)題之后記得把ListView 控件的View 屬性設(shè)置為 Deta

18、ils，才能顯示出列標(biāo)題來。2、使用代碼來添加列標(biāo)題我們可以使用Columns.Add方法來動(dòng)態(tài)添加列標(biāo)頭，使用Columns.Clear()方法來清除所有的列標(biāo)頭，如下代碼所示，動(dòng)態(tài)添加四個(gè)列標(biāo)題，其中每個(gè)列頭的寬為50，Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListView1.View = View.DetailsListView1.GridLines = TrueListView1.Columns.Clear()

19、ListView1.Columns.Add("列 1", 50, HorizontalAlignment.Left)ListView1.Columns.Add("列 2", 50, HorizontalAlignment.Left)ListView1.Columns.Add("列 3", 50, HorizontalAlignment.Left)ListView1.Columns.Add("列 4", 50, HorizontalAlignment.Center)ListView1.Refresh()End Sub

20、1. Option Explicit2.3.4.5.6.7.8.9. Private Sub Form_Load() ListView1.FullRowSelect = True ListView1.ColumnHeaders.Clear ListView1.ColumnHeaders.Add 1, , "姓名", 1000 ListView1.ColumnHeaders.Add 2, , "性別", 500 ListView1.ColumnHeaders.Add 3, , "職稱", 1500 ListView1.ColumnHea

21、ders.Add 4, , "電話", 100010. ListView1.ColumnHeaders.Add 5, , "班主任", 100011.12. Dim fName As String13. If Len(App.Path) = 3 Then14. fName = App.Path & "學(xué)生名單.xls"15. Else16. fName = App.Path & "學(xué)生名單.xls"17. End If18. GetExcelData fName, ListView119. End

22、Sub20.21. Private Sub GetExcelData(ByVal fileName As String, ByRef lvw As ListView)22. Dim MyXl As Object23.24. '測(cè)試 Microsoft Excel 的副本是否在運(yùn)行。25. On Error Resume Next '延遲錯(cuò)誤捕獲。26. '不帶第一個(gè)參數(shù)調(diào)用 Getobject 函數(shù)將27. '返回對(duì)該應(yīng)用程序的實(shí)例的引用。28. '如果該應(yīng)用程序不在運(yùn)行，則會(huì)產(chǎn)生錯(cuò)誤。29. Set MyXl = GetObject(, "E

23、xcel.Application")30. If Err.Number > 0 Then31. Err.Clear '如果發(fā)生錯(cuò)誤則要清除 Err 對(duì)象。32. Set MyXl = CreateObject("Excel.Application")33. End If34.35. Dim wsBook As Workbook36. Dim wsSheet As Worksheet37.38. Set MyXl = GetObject(fileName)39.40.41. MyXl.Application.Visible = False42. MyX

24、l.Parent.Windows(1).Visible = True43. '在此處對(duì)文件44. '進(jìn)行操作。45. Set wsBook = MyXl.Application.Workbooks(1)46. Set wsSheet = wsBook.Worksheets("Sheet1")47.48. With wsSheet49. Dim row As Long50. row = .Cells.SpecialCells(xlCellTypeLastCell).row51. Dim i As Long52. Dim itmX As ListItem53.

25、For i = 2 To row54. Set itmX = lvw.ListItems.Add(, "Key_" & .Cells(i, 1), .Cells(i, 2)55. itmX.SubItems(1) = .Cells(i, 3)56. itmX.SubItems(2) = .Cells(i, 4)57. itmX.SubItems(3) = .Cells(i, 5)58. itmX.SubItems(4) = .Cells(i, 6)59. Next60. End With61.62. MyXl.Application.DisplayAlerts =

26、False63.64. MyXl.Application.Quit65.66. Set MyXl = Nothing '釋放對(duì)該應(yīng)用程序67. '和電子數(shù)據(jù)表的引用。68. End Sub69.70. Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)71. Text1 = Item.Text72. Text2 = Item.SubItems(1)73. Text3 = Item.SubItems(2)74. Text4 = Item.SubItems(3)75. Text5 = Item.Su

27、bItems(4)76. End SubPublic Sub LVrefresh(Optional ByVal StandardType As Boolean) Dim intRow As Integer, strTemp As StringDim fileNo As Integer, fileName As StringDim Fp As New FileSystemObjectDim strTs As TextStreamDim ListItemTemp As ListItemOn Error Resume NextfileNo = FreeFileWith ListView1.Colum

28、nHeaders.Clear.ListItems.Clear.ColumnHeaders.Add , , "姓名".ColumnHeaders(1).Width = 1200.ColumnHeaders.Add , , "年齡".ColumnHeaders(2).Width = 900.ColumnHeaders.Add , , "職位".ColumnHeaders(3).Width = 2000.ColumnHeaders.Add , , "聯(lián)系電話".ColumnHeaders(4).Alignment = l

29、vwColumnLeft.ColumnHeaders(4).Width = 2000intRow = 1fileName = IIf(Left(App.Path, 1) = "", App.Path & "1.txt", App.Path & "1.txt")Set strTs = Fp.OpenTextFile(fileName)strTemp = strTs.ReadLineDo While Err.Number = 0If intRow = 1 ThenSet ListItemTemp = .ListItems.

30、Add(, , strTemp)ElseListItemTemp.SubItems(intRow - 1) = strTempEnd IfIf intRow = 4 ThenintRow = 1ElseintRow = intRow + 1End IfstrTemp = strTs.ReadLine LoopEnd WithEnd SubPrivate Sub Command1_Click() LVrefreshEnd SubPublic Sub LVrefresh(Optional ByVal StandardType As Boolean) Dim intRow As Integer, s

31、trTemp As StringDim fileNo As Integer, fileName As StringDim Fp As New FileSystemObjectDim strTs As TextStreamDim ListItemTemp As ListItemOn Error Resume NextfileNo = FreeFileWith ListView1.ColumnHeaders.Clear.ListItems.Clear.ColumnHeaders.Add , , "姓名".ColumnHeaders(1).Width = 1200.ColumnH

32、eaders.Add , , "年齡".ColumnHeaders(2).Width = 900.ColumnHeaders.Add , , "職位".ColumnHeaders(3).Width = 2000.ColumnHeaders.Add , , "聯(lián)系電話".ColumnHeaders(4).Alignment = lvwColumnLeft.ColumnHeaders(4).Width = 2000intRow = 1fileName = IIf(Left(App.Path, 1) = "", App.

33、Path & "1.txt", App.Path & "1.txt")Set strTs = Fp.OpenTextFile(fileName)strTemp = strTs.ReadLineDo While Err.Number = 0If intRow = 1 ThenSet ListItemTemp = .ListItems.Add(, , strTemp)ElseListItemTemp.SubItems(intRow - 1) = strTempEnd IfIf intRow = 4 ThenintRow = 1ElseintR

34、ow = intRow + 1End IfstrTemp = strTs.ReadLine LoopEnd WithEnd SubPrivate Sub Command1_Click() LVrefreshEnd Sub常用屬性：View設(shè)置或返回控件的視圖類型值 說明1-LvwIcon 圖標(biāo)類型2-LvwSmallIcon 小圖標(biāo)類型3-LvwList 列表類型4-LvwReport 報(bào)表類型Arrange 設(shè)置后返回控件的圖標(biāo)排列方式(在圖標(biāo)視圖下有效)值 說明1-LvwNone 不排列2-LvwAutoLeft 自動(dòng)靠右排列3-LvwAutoTop 自動(dòng)靠左排列Icons、 SmallI

35、cons、 ColumnHeaderIcons屬性Icons指定圖標(biāo)視圖時(shí)的圖標(biāo)與ImageList的綁定SmallIcons、 ColumnHeaderIcons指定列表視圖時(shí)的圖標(biāo)與ImageList的綁定PICTURE、PictureAlignment屬性分別指定ListView控件的背景圖片和布局方式ListItems(Index) 屬性ListItems 屬性是ListView控件中列表項(xiàng)的集合。Index用于指定列表項(xiàng)集合中的一個(gè)對(duì)象， 我們可以把這個(gè)對(duì)象看作對(duì)一行的引用ListItems集合的屬性1. Text 設(shè)置或返回顯示文本2. key 關(guān)鍵字3. index 索引編號(hào)4.

36、 icon , smallicon 不同視圖時(shí)顯示單元格的圖標(biāo)5. checked 給checkboxes 打6. selected 使處于選定狀態(tài)7. ListSubitems（index） 集合 我們可以把這個(gè)集合看作對(duì)這行中單元格的引用Text 設(shè)置或返回單元格顯示的內(nèi)容Reporticon 設(shè)置單元格的圖標(biāo)8 Subitems(index) 設(shè)置或返回單元格文本 = ListSubitems（index）.textColumnHeaders(index) 屬性ColumnHeaders 屬性是ListView控件中列標(biāo)頭的集合1. text 顯示標(biāo)題文本2. key3. index4.

37、 icon 指定標(biāo)題圖標(biāo)5. alignment 指定index列的對(duì)齊方式 （注意：第一列也就是列表項(xiàng)不能指定）6. position 返回當(dāng)前列的索引7. subitemindex 返回指定列的listsubitem索引TextBackgroud 屬性決定text的背景是透明還是ListView的背景色值 0 lvwTransparent 透明1 lvw 不透明（用listview的背景色）Ghosted 屬性 logic決定是否虛狀HideColumnHeaders 屬性隱藏表頭LabelWrap 屬性標(biāo)簽轉(zhuǎn)行 View.LargeIcon 或 View.SmallIcon 時(shí)才使用該屬

38、性FullRowSelect整行顯示HotTracking熱點(diǎn)追蹤 鼠標(biāo)指針自動(dòng)調(diào)整為手型HoverSelection 屬性自動(dòng)聚焦 鼠標(biāo)指針自動(dòng)調(diào)整為手型AllowColumnReorder屬性值設(shè)置.t.時(shí)，用戶可以用鼠標(biāo)選中1列拖至其他地方進(jìn)行重新排列Sorted屬性當(dāng)值為.t.時(shí)，列表按字母排序常用方法：ListItems.add(index,key,text,icon,smallicon)向listitems添加一列表項(xiàng)。Index 插入列表項(xiàng)的編號(hào)Key 插入列表項(xiàng)的關(guān)鍵字Text 插入列表項(xiàng)的文本Icon 當(dāng)為圖標(biāo)視圖時(shí)要求顯示的圖標(biāo)Smallicon 當(dāng)為小圖標(biāo)視圖時(shí)要求顯示的

39、圖標(biāo)Clear清除listitems集合中所有的列表項(xiàng)Remove清除選定行L1=thisform.view1L1.listitems.remove(L1.selectedItem.index)AllowColumnReorder屬性值設(shè)置.t.時(shí)，用戶可以用鼠標(biāo)選中1列拖至其他地方進(jìn)行重新排列常用事件：AfterLabelEdit編輯當(dāng)前選擇的列表對(duì)象之后發(fā)生BeforeLabelEdit編輯當(dāng)前選擇的列表對(duì)象之前發(fā)生ItemClick單擊某一列表對(duì)象時(shí)發(fā)生參數(shù) item 對(duì)當(dāng)前列表項(xiàng)的引用事件AfterLabelEdit：編輯ListItem對(duì)象的標(biāo)簽時(shí)被觸發(fā)。BeforeLabelEdi

40、t：編輯ListItem對(duì)象的標(biāo)簽后出發(fā)。ColumnClick：?jiǎn)螕袅袠?biāo)題時(shí)觸發(fā)。參數(shù)中可以獲得被單擊的列對(duì)象。通常用于排序。ItemClick：?jiǎn)螕裟承谢蚰矻istItem時(shí)觸發(fā)。參數(shù)中可以獲得被單擊的ListItem對(duì)象。方法FindItem：搜索ListItem對(duì)象。參數(shù)：string：搜索字符串。value：在ListItem的哪部分中搜索（LvwText、LvwSubItem、LvwTag）；index：開始搜索的位置。 match：匹配方式。HitTest：檢索位于特定坐標(biāo)處的ListItem對(duì)象。vb 中的實(shí)例Private Sub Form_load()'確保List

41、View控件的view屬性為報(bào)表視圖。ListView1.View=lvwReport'添加三列。ListView1.ColumnHeaders.Add,"Name","姓名"ListView1.ColumnHeaders.Add,"Sex","性別"ListView1.ColumnHeaders.Add,"Age","年齡"'向控件添加ListItem對(duì)象。Dim itmX As ListItem'添加column1的名稱。Set itmX=List

42、View1.ListItems.Add(1,"ZL","張力")'使用SubItemIndex將SubItem與正確的ColumnHeader關(guān)聯(lián)。使用關(guān)鍵字("Sex")指定正確的ColumnHeader。 itmX.SubItems(ListView1.ColumnHeaders("Sex").SubItemIndex)="男"'使用ColumnHeader關(guān)鍵字將SubItems字符串與'正確的ColumnHeader關(guān)聯(lián)。itmX.SubItems(ListVie

43、w1.ColumnHeaders("Age").SubItemIndex)="19"Set itmX=ListView1.ListItems.Add(1,"LF","李芳")itmX.SubItems(ListView1.ColumnHeaders("Sex").SubItemIndex)="男"itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex)="22"Set itmX

44、=ListView1.ListItems.Add(1,"WW","王偉")itmX.SubItems(ListView1.ColumnHeaders("Sex").SubItemIndex)="男"itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex)="24"End SubPrivate Sub ListView1_ColumnClick(ByVal ColumnHeader As ComctlLib.Colum

45、nHeader)Select Case ColumnHeader.KeyCase "Sex":ListView1.SortKey=1ListView1.SortOrder=lvwAscendingListView1.Sorted=TrueCase "Age":ListView1.SortKey=2ListView1.SortOrder=lvwAscendingListView1.Sorted=TrueEnd SelectEnd Sub例二Private Sub UserForm_Initialize()ListView1.ColumnHeaders.Add , , "QQ號(hào)" '添加QQ號(hào)列ListView1.ColumnHeaders.Add , , "呢稱" '添加呢稱列ListView1.ColumnHeaders.Add , , "來自何處" '添加來自何處列ListView