ListView控件屬性與方法

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

2、顯示控件的項(xiàng)，這四種視圖模式分別如下：2、 LartIcon ：大圖標(biāo)視圖模式，在項(xiàng)的文本旁顯示大的圖標(biāo)，在控件寬度足夠的情況下，項(xiàng)是如圖一中的盤(pán)符一樣優(yōu)先以平行排列的，排列不完的則自動(dòng)換行顯示在新行中。2、Smalllcon：小圖標(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 視圖模式中起作用的控件屬性為： Gri

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

4、頭不響應(yīng)鼠標(biāo)單擊。3、None：列標(biāo)頭在報(bào)表視圖中不顯示。2、 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（By

5、Val sender As , ByVal e As HandlesDim i As Integer = 0Dim str As String = ""Next (str)End Sub運(yùn)行后顯示效果如下圖四所示：兩個(gè)屬性都能獲得所選項(xiàng)在控件中的索引，我們?cè)趯?shí)際應(yīng)用的時(shí)候可以靈活選擇使用它們中的一個(gè)，以達(dá)到簡(jiǎn)化代碼的目的。3、 ListView 的其他重要屬性L(fǎng)istView 控件還有一些比較常用的重要屬性1、 Activation 屬性Activation 屬性指定用戶(hù)激活 ListView 控件中的項(xiàng)的方式，它包括三個(gè)可選值：OneClick：用戶(hù)必須單擊以激活項(xiàng)。光標(biāo)

6、更改為手形指針光標(biāo)，項(xiàng)文本在用戶(hù)將鼠標(biāo)指針移動(dòng)到項(xiàng)上時(shí)更改顏色。Standard：用戶(hù)必須雙擊以激活項(xiàng)。在用戶(hù)將鼠標(biāo)指針移動(dòng)到項(xiàng)上時(shí)沒(méi)有提供任何反饋。TwoClick：用戶(hù)必須雙擊以激活項(xiàng)，項(xiàng)文本在用戶(hù)將鼠標(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ì)打開(kāi)一個(gè)文件或顯示一個(gè)允許用戶(hù)對(duì)項(xiàng)進(jìn)行編輯的對(duì)話(huà)框。通常，項(xiàng)的激活是通過(guò)用戶(hù)對(duì)它進(jìn)行雙擊來(lái)實(shí)現(xiàn)的。如果 Activation屬性設(shè)置為 OneClick,那么單擊該項(xiàng)一次即可將其激活。將 Activa

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

8、Handles（"你想做什么"）'可以在這里添加我們需要的操作End Sub代碼運(yùn)行后，我們激活選項(xiàng)，如下圖五所示：2、 LabelEdit 屬性L(fǎng)abelEdit 屬性指示用戶(hù)是否可以編輯控件中項(xiàng)的標(biāo)簽。當(dāng) LabelEdit 屬性設(shè)置為 true 時(shí)，用戶(hù)可以單擊項(xiàng)文本，將其選中，然后再次單擊項(xiàng)文本，將標(biāo)簽文本置于編輯模式，然后，用戶(hù)可以修改或替換項(xiàng)的文本標(biāo)簽。在用戶(hù)編輯項(xiàng)文本之前和之后，您可以使用 BeforeLabelEdit 和 AfterLabelEdit 事件來(lái)執(zhí)行任務(wù)。如果該屬性設(shè)置為true ，則無(wú)法修改子項(xiàng)的文本。要更改子項(xiàng)的文本，您可以在用戶(hù)雙

9、擊控件中的子項(xiàng)時(shí)為其顯示對(duì)話(huà)框。3、 LabelWrap 屬性L(fǎng)abelWrap 屬性指示當(dāng)項(xiàng)作為圖標(biāo)在控件中顯示時(shí)，項(xiàng)標(biāo)簽是否換行。當(dāng) LabelWrap 屬性設(shè)置為 true 時(shí)，如果需要，項(xiàng)文本會(huì)換至文本的下一行。如果文本長(zhǎng)于兩行，則文本將縮短。如果用戶(hù)選擇了該項(xiàng)，則顯示所有項(xiàng)文本。如果LabelWrap 屬性設(shè)置為false ，則所有項(xiàng)文本都將顯示在單獨(dú)一行中。整個(gè)項(xiàng)文本在LabelWrap 設(shè)置為false 時(shí)顯示。只有在View 屬性設(shè)置為L(zhǎng)argeIcon 或 SmallIcon 時(shí)才使用該屬性。4、 MultiSelect 屬性MultiSelect 屬性指示是否可以選擇多個(gè)項(xiàng)

10、。當(dāng) MultiSelect 屬性設(shè)置為true 時(shí)，可在 ListView 控件中選擇多個(gè)項(xiàng)。5、 Scrollable 屬性Scrollable 屬性指示在沒(méi)有足夠空間來(lái)顯示所有項(xiàng)時(shí)，是否顯示滾動(dòng)條。6、 Sorting 屬性Sorting 屬性指示控件中項(xiàng)的排序順序。Sorting 屬性允許指定項(xiàng)在 ListView 控件中是否排序。 默認(rèn)情況下， 不執(zhí)行排序。 當(dāng) Sorting 屬性設(shè)置為Ascending 或 Descending 時(shí)，ListView 中的項(xiàng)自動(dòng)按照升序字母順序（當(dāng)屬性設(shè)置為Ascending 時(shí)）或降序字母順序（當(dāng)屬性設(shè)置為Descending 時(shí)）進(jìn)行排序。您

11、可以使用該屬性對(duì) ListView 控件中顯示的項(xiàng)進(jìn)行自動(dòng)排序， 使用戶(hù)在大量項(xiàng)可用時(shí)更容易查找到項(xiàng)。 如果您要自己執(zhí)行對(duì)項(xiàng)的排序，而不使用 Sorting 屬性，可與 Sort 方法一起使用 ListViewItemSorter 屬性。7、 LargeImageList 屬性L(fǎng)argeImageList 屬性設(shè)置當(dāng)項(xiàng)以大圖標(biāo)在控件中顯示時(shí)使用的ImageList 。8、 SmallImageList 屬性SmallImageList 屬性設(shè)置當(dāng)項(xiàng)以小圖標(biāo)在控件中顯示時(shí)使用的ImageList。上面我們了解了 ListView 的一些主要屬性，下面我們來(lái)看如何使用它。四、向 ListView

12、控件添加項(xiàng)1、我們可以使用ListViewItem 集合編輯器來(lái)為控件添加項(xiàng)方法是在 ListView 控件的屬性窗口中選擇Items 屬性。2、還可以使用ListView控件的（）方法來(lái)為它添加新的項(xiàng)，Add（）方法的格式如下：Add（text,imageIndex）text 為要添加項(xiàng)所顯示的文本imageIndex 為可選參數(shù)，指示所對(duì)應(yīng)ImageList 中的圖標(biāo)索引示例：為窗體添加一個(gè)ListView 控件，一個(gè)ImageList 控件，一個(gè)Button 控件，然后在代碼編輯器中添加如下代碼:Private Sub Button1_Click（ByVal sender As , By

13、Val e As HandlesDim mItem As ListViewItemDim i As Integer = 0For i = 0 To 3NextEnd Sub運(yùn)行后，單擊按鈕，效果如下圖六所示：也可以使用如下代碼來(lái)添加Item,其運(yùn)行效果是一樣的：Private Sub Button1_Click(ByVal sender As , ByVal e As HandlesDim item0 As New ListViewItem("item 0", 0)Dim item1 As New ListViewItem("item 1", 1)Dim

14、 item2 As New ListViewItem("item 2", 2)Dim item3 As New ListViewItem("item 3", 3)End Sub五、為L(zhǎng)istView控件添加列標(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)題，這樣比較直觀(guān)。先選中ListView控件，然后在它的屬性窗口中找到Columns屬性，單擊后面的省略符號(hào)，如下圖七所

15、示：然后在彈出的集合編輯器中添加和刪除列標(biāo)題即可，我們可以在編輯器的右邊中編輯對(duì)應(yīng)的列顯示的文本、寬度以及文字對(duì)齊方式，如下圖八所示：添加完列標(biāo)題之后記得把ListView控件的View屬性設(shè)置為 Details,才能顯示出列標(biāo)題來(lái)。2、使用代碼來(lái)添加列標(biāo)題我們可以使用方法來(lái)動(dòng)態(tài)添加列標(biāo)頭，使用()方法來(lái)清除所有的列標(biāo)頭，如下代碼所示，動(dòng)態(tài)添加四個(gè)列標(biāo)題，其中每個(gè)列頭的寬為50,Private Sub Button1_Click(ByVal sender As , ByVal e As Handles=TrueListV()End Sub1. Option Explicit2.Private

16、Sub Form_Load()3.=True4.5. Dim fName As String6. If Len = 3 Then7. fName = & " 學(xué)生名單.xls"8. Else9. 學(xué)生名單.xls"10. End If11. GetExcelData fName, ListView112. End Sub13. Private Sub GetExcelData(ByVal fileName As String, ByRef lvw As ListView)14. Dim MyXl As Object15. '測(cè)試Microsoft

17、Excel 的副本是否在運(yùn)行。16. On Error Resume Next '延遲錯(cuò)誤捕獲。17. '不帶第一個(gè)參數(shù)調(diào)用Getobject 函數(shù)將18. '返回對(duì)該應(yīng)用程序的實(shí)例的引用。19. '如果該應(yīng)用程序不在運(yùn)行，則會(huì)產(chǎn)生錯(cuò)誤。20. Set MyXl = GetObject(,"")21. If > 0 Then22. 如果發(fā)生錯(cuò)誤則要清除Err 對(duì)象。23. Set MyXl = CreateObject("")24. End If25.26. Dim wsBook As Workbook27. Dim

18、 wsSheet As Worksheet28.29. Set MyXl = GetObject(fileName)30.31. '在此處對(duì)文件32. '進(jìn)行操作。33. Set wsSheet = ("Sheet1")34.35. With wsSheet36. Dim row As Long37. row = .(xlCellTypeLastCell).row38.Dim i As Long39. Dim itmX As Listitem40. For i = 2 To row41. (1) =.Cells(i,3)42. (2) =.Cells(i,4

19、)43. (3) =.Cells(i,5)44. (4) =.Cells(i,6)45. Next46. End With47. = False48.49. Set MyXl = Nothing '釋放對(duì)該應(yīng)用程序50. '和電子數(shù)據(jù)表的引用。51. End Sub52. Private Sub ListView1_ItemClick(ByVal Item As53. Textl =54. Text2=(1)55. Text3=(2)56. Text4=(3)57. Text5=(4)58. End SubPublic Sub LVrefresh(Optional ByVal

20、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 . .,"姓名".ColumnHeaders(1).Width = 1200.,"年齡&quo

21、t;.ColumnHeaders(2).Width = 900.,"職位”.ColumnHeaders(3).Width = 2000.,"聯(lián)系電話(huà)”.ColumnHeaders(4).Alignment = IvwColumnLeft.ColumnHeaders(4).Width = 2000intRow = 1fileName = IIf(Left, 1) = "",& "",& "")Set strTs = (fileName)strTemp =Do While = 0If intRow =

22、1 ThenSet ListItemTemp = .(, , strTemp)Else(intRow - 1) = strTempEnd IfIf intRow = 4 ThenintRow = 1ElseintRow = intRow + 1End IfstrTemp =LoopEnd WithEnd SubPrivate Sub Command1_Click()LVrefreshEnd SubPublic Sub LVrefresh(Optional ByVal StandardType As Boolean)Dim intRow As Integer, strTemp As String

23、Dim fileNo As Integer, fileName As StringDim Fp As New FileSystemObjectDim strTs As TextStreamDim ListItemTemp As ListItemOn Error Resume NextfileNo = FreeFileWith ListView1 . .,"姓名".ColumnHeaders(1).Width = 1200.,"年齡".ColumnHeaders(2).Width = 900.,"職位”.ColumnHeaders(3).Widt

24、h = 2000.,"聯(lián)系電話(huà)”.ColumnHeaders(4).Alignment = lvwColumnLeft.ColumnHeaders(4).Width = 2000intRow = 1fileName = IIf(Left, 1) = "",& "",& "")Set strTs = (fileName) strTemp =Do While = 0If intRow = 1 ThenSet ListItemTemp = .(, , strTemp)Else(intRow - 1) = strTe

25、mpEnd IfIf intRow = 4 ThenintRow = 1ElseintRow = intRow + 1End IfstrTemp =LoopEnd WithEnd SubPrivate Sub Command1_Click()LVrefreshEnd Sub常用屬性：View 設(shè)置或返回控件的視圖類(lèi)型值 說(shuō)明1-LvwIcon 圖標(biāo)類(lèi)型2-LvwSmallIcon 小圖標(biāo)類(lèi)型3-LvwList 列表類(lèi)型4-LvwReport 報(bào)表類(lèi)型Arrange 設(shè)置后返回控件的圖標(biāo)排列方式(在圖標(biāo)視圖下有效)值 說(shuō)明1-LvwNone 不排列2-LvwAutoLeft 自動(dòng)靠右排列3-Lv

26、wAutoTop 自動(dòng)靠左排列Icons 、 SmallIcons 、 ColumnHeaderIcons 屬性Icons 指定圖標(biāo)視圖時(shí)的圖標(biāo)與ImageList 的綁定SmallIcons 、 ColumnHeaderIcons 指定列表視圖時(shí)的圖標(biāo)與ImageList 的綁定PICTURE 、 PictureAlignment 屬性分別指定 ListView 控件的背景圖片和布局方式ListItems(Index) 屬性L(fǎng)istItems 屬性是 ListView 控件中列表項(xiàng)的集合。 Index 用于指定列表項(xiàng)集合中的一個(gè)對(duì)象，我們可以把這個(gè)對(duì)象看作對(duì)一行的引用ListItems 集合

27、的屬性1. Text 設(shè)置或返回顯示文本2. key 關(guān)鍵字3. index 索引編號(hào)4. icon , smallicon 不同視圖時(shí)顯示單元格的圖標(biāo)5. checked 給 checkboxes 打 V6. selected 使處于選定狀態(tài)7. ListSubitems ( index ) 集合 我們可以把這個(gè)集合看作對(duì)這行中單元格的引用Text 設(shè)置或返回單元格顯示的內(nèi)容Reporticon 設(shè)置單元格的圖標(biāo)8. Subitems(index) 設(shè)置或返回單元格文本= ListSubitems ( index ) .textColumnHeaders(index) 屬性ColumnHea

28、ders 屬性是 ListView 控件中列標(biāo)頭的集合1. text 顯示標(biāo)題文本2. key3. index4. 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決定是否虛狀HideColumnHea

29、ders 屬性隱藏表頭LabelWrap 屬性標(biāo)簽轉(zhuǎn)行 或 時(shí)才使用該屬性FullRowSelect整行顯示HotTracking熱點(diǎn)追蹤鼠標(biāo)指針自動(dòng)調(diào)整為手型HoverSelection 屬性自動(dòng)聚焦鼠標(biāo)指針自動(dòng)調(diào)整為手型AllowColumnReorder 屬性值設(shè)置.t. 時(shí)，用戶(hù)可以用鼠標(biāo)選中1 列拖至其他地方進(jìn)行重新排列Sorted 屬性當(dāng)值為.t. 時(shí)，列表按字母排序常用方法：（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í)要求

30、顯示的圖標(biāo)Smallicon 當(dāng)為小圖標(biāo)視圖時(shí)要求顯示的圖標(biāo)Clear清除 listitems 集合中所有的列表項(xiàng)Remove 清除選定行L1=AllowColumnReorder 屬性1 列拖至其他地方進(jìn)行重新排列值設(shè)置 .t. 時(shí)，用戶(hù)可以用鼠標(biāo)選中常用事件：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ā)。BeforeLabelEdit ：編輯 ListItem 對(duì)象的

31、標(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 ：開(kāi)始搜索的位置。match ：匹配方式。HitTest ：檢索位于特定坐標(biāo)處的 ListItem 對(duì)象。vb 中的實(shí)例Private Sub Form_load()

32、9;確保 ListView 控件的 view 屬性為報(bào)表視圖。=lvwReport'添加三列。'向控件添加ListItem 對(duì)象。Dim itmX As ListItem'添加 column1 的名稱(chēng)。ColumnHeader'使用 SubItemIndex 將 SubItem 與正確的 ColumnHeader 關(guān)聯(lián)。使用關(guān)鍵字("Sex") 指定正確的("Sex").SubItemIndex)=" 男 "'使用 ColumnHeader 關(guān)鍵字將 SubItems 字符串與'正確的

33、ColumnHeader 關(guān)聯(lián)。("Age").SubItemIndex)="19"("Sex").SubItemIndex)=" 男 "("Age").SubItemIndex)="22"("Sex").SubItemIndex)=" 男 "("Age").SubItemIndex)="24"End SubPrivate Sub ListView1_ColumnClick(ByVal ColumnHeaderAsSelect CaseCase "Sex":=1=l