listview控件完全教程

1、listview控件完全教程（蘭色幻想原創(chuàng)）日期：2008-01-29 來(lái)源： 作者： 字體：大 中 小 我準(zhǔn)備用幾天的時(shí)間全力搜集listview控件有關(guān)的信息，并以實(shí)例的方式方面大家學(xué)習(xí)。估計(jì)還要幾天才能完成，請(qǐng)大家耐心等待。一、認(rèn)識(shí)listview控件的四種視圖：1、圖標(biāo)視圖特點(diǎn)：可用鼠標(biāo)操作，使用戶能夠拖放該對(duì)象，并重新排列它們。此主題相關(guān)圖片如下：2、小圖標(biāo)視圖特點(diǎn)：同時(shí)能夠顯示更多的 ListItem。與圖標(biāo)視圖相似，可由用戶重新排列對(duì)象。此主題相關(guān)圖片如下：3、列表視圖特點(diǎn)：提供排序的 ListItems 對(duì)象視圖此主題相關(guān)圖片如下：4、報(bào)表視圖特點(diǎn)：提供排序的視圖，通過(guò) Sub

2、Items 能夠顯示更多的信息。此主題相關(guān)圖片如下：二、listview控件的基本操作：1、添加列。第1例：為listview控件添加三列，分別顯示為“QQ號(hào)”，“呢稱”和“來(lái)自何處”。 示例文件：代碼： 點(diǎn)擊瀏覽該文件Private Sub UserForm_Initialize()ListView1.ColumnHeaders.Add , , "QQ號(hào)" '添加QQ號(hào)列ListView1.ColumnHeaders.Add , , "呢稱" '添加呢稱列ListView1.ColumnHeaders.Add , , "來(lái)自何

3、處" '添加來(lái)自何處列ListView1.View = lvwReport ''設(shè)置顯示方式為報(bào)表格式End Sub代碼說(shuō)明：1、在工作表中用Column表示列。而在Listview控件中，用ColumnHeaders對(duì)象來(lái)操作列，而添加新的列可以用ColumnHeaders對(duì)象的ADD方法。具體如下： ListView1.ColumnHeaders.Add 序號(hào)，唯一的字符串標(biāo)識(shí)，列標(biāo)顯示文字，列寬，列的內(nèi)容對(duì)齊方式，所使用的圖標(biāo)序號(hào)。 如本例中：ListView1.ColumnHeaders.Add , , "QQ號(hào)"2、Listvie

4、w控件的View 屬性決定著它的顯示的方式，具體如下： ListView1.View = lvwIcon '圖標(biāo)顯示 ListView1.View = lvwSmallIcon '小圖標(biāo)顯示 ListView1.View = lvwList '列表顯示 ListView1.View = lvwReport '報(bào)表顯示 添加效果：此主題相關(guān)圖片如下：第2例：為listview控件添加三列，分別顯示為“QQ號(hào)”，“呢稱”和“來(lái)自何處”。另三列的列寬各占用ListView1控件總寬度的三分之，第1列為左對(duì)齊，第2列為居中對(duì)齊，第3列為右對(duì)齊。 示例文件：代碼： 點(diǎn)擊瀏

5、覽該文件Private Sub UserForm_Initialize() '添加QQ號(hào)列，列寬占總寬度的三分之一，左對(duì)齊 ListView1.ColumnHeaders.Add , , "QQ號(hào)", ListView1.Width / 3, lvwColumnLeft '添加呢稱列，列寬占總寬度的三分之一，居中對(duì)齊ListView1.ColumnHeaders.Add , , "呢稱", ListView1.Width / 3, lvwColumnCenter '添加來(lái)自何處列，列寬占總寬度的三分之一，右對(duì)齊ListView1.

6、ColumnHeaders.Add , , "來(lái)自何處", ListView1.Width / 3, lvwColumnRight '添加來(lái)自何處列ListView1.View = lvwReport '設(shè)置顯示方式為報(bào)表格式End Sub添加后效果：此主題相關(guān)圖片如下：2、添加記錄。第3例：為listview控件添加三列，分別顯示為“QQ號(hào)”，“呢稱”和“來(lái)自何處”。并且把如下圖所示工作表的中記錄添加到listview控件中。效果如下圖所示。此主題相關(guān)圖片如下：示例文件：代碼：Private Sub UserForm_Initialize() '聲

7、明變量類型Dim ITM As ListItem '添加QQ號(hào)列，列寬占總寬度的三分之一，左對(duì)齊ListView1.ColumnHeaders.Add , , "QQ號(hào)", ListView1.Width / 3, lvwColumnLeft '添加呢稱列，列寬占總寬度的三分之一，居中對(duì)齊ListView1.ColumnHeaders.Add , , "呢稱", ListView1.Width / 3, lvwColumnCenter '添加來(lái)自何處列，列寬占總寬度的三分之一，右對(duì)齊ListView1.ColumnHeaders.

8、Add , , "來(lái)自何處", ListView1.Width / 3, lvwColumnRight '設(shè)置顯示方式為報(bào)表格式ListView1.View = lvwReport '顯示表格線ListView1.Gridlines = True '設(shè)置循環(huán),填充記錄For i = 1 To A65536.End(xlUp).Row '添加記錄Set ITM = ListView1.ListItems.Add() '添加記錄的行標(biāo)題(第一列內(nèi)容)ITM.Text = Cells(i, 1) '添加記錄的第二列內(nèi)容ITM.Sub

9、Items(1) = Cells(i, 2) '添加記錄的第三列內(nèi)容ITM.SubItems(2) = Cells(i, 3)Next iEnd Sub代碼說(shuō)明： 1、ListView1的Gridlines屬性為True時(shí)顯示表格線，為False不顯示表格線。2、在ListView控件中，添加記錄要通過(guò)ListItems集合對(duì)象來(lái)實(shí)現(xiàn)，如本例中Set ITM = ListView1.ListItems.Add()3、設(shè)置第一列的內(nèi)容是通過(guò)text屬性來(lái)添加，而以后各列的添加則通過(guò)SubItems對(duì)象來(lái)實(shí)現(xiàn)。第2列為SubItems（1）第3列為SubItems（2）.4、在Listvi

10、ew控件第1列只能左對(duì)齊，而不能采取其他對(duì)齊方式三、listview控件的圖示顯示：1、listview圖標(biāo)顯示格式中的圖標(biāo)設(shè)置第4例：設(shè)置一系統(tǒng)登陸窗體，使用listview控件顯示用戶列表。如下圖所示。此主題相關(guān)圖片如下：示例文件：點(diǎn)擊瀏覽該文件制作方法：在窗體插入以下控件。兩個(gè)標(biāo)簽控件，兩個(gè)按鈕控件，一個(gè)Listview控件和一個(gè)ImageList控件。注：1、在Listview控件顯示的圖標(biāo)需要通過(guò)建立和ImageList控件中圖標(biāo)相關(guān)聯(lián)。2、在VBE編輯器中選取ImageList控件并在屬性窗口中單擊自定義，在彈出的屬性頁(yè)對(duì)話框的Images選項(xiàng)卡中插入ICO圖示。方法是單擊Inse

11、rt picture按鈕插入圖標(biāo)文件。如下圖所示。此主題相關(guān)圖片如下：代碼：Private Sub UserForm_Initialize() '設(shè)置控件顯示方式為圖標(biāo)顯示 ListView1.View = lvwIcon '建立和 ImageList1控件的關(guān)聯(lián) ListView1.Icons = ImageList1 '添加操作員張靜ListView1.ListItems.Add , , "張靜", 1 '添加操作員王楓 ListView1.ListItems.Add , , "王楓", 1 '添加操作員劉楠

12、ListView1.ListItems.Add , , "劉楠", 1 '添加操作員文生 ListView1.ListItems.Add , , "文生", 1 '添加操作員趙西城 ListView1.ListItems.Add , , "趙西城", 1 '添加操作員吳云ListView1.ListItems.Add , , "吳云", 1End Sub代碼說(shuō)明：ListView1.ListItems.Add , , "吳云", 1 中的1是指在IImageList1控件

13、中圖片序號(hào)。 2、listview報(bào)表顯示格式中的圖標(biāo)設(shè)置 第5例：為listview控件添加三列，分別顯示為“QQ號(hào)”，“呢稱”和“來(lái)自何處”。并且把如下圖所示工作表的中記錄添加到listview控件中，并且在每行前添加ImageList1中的圖示。效果如下圖所示此主題相關(guān)圖片如下：示例文件： 代碼：Private Sub UserForm_Initialize() '定義變量數(shù)據(jù)類型Dim ITM As ListItem '添加QQ號(hào)列ListView1.ColumnHeaders.Add 1, , "QQ號(hào)", ListView1.Width / 3

14、'添加呢稱列 ListView1.ColumnHeaders.Add 2, , "呢稱", ListView1.Width / 3, lvwColumnCenter '添加來(lái)自何處列 ListView1.ColumnHeaders.Add 3, , "來(lái)自何處", ListView1.Width / 3 '設(shè)置顯示格式為報(bào)表格式 ListView1.View = lvwReport '顯示網(wǎng)格線ListView1.Gridlines = True '建立控件和ImageList1關(guān)聯(lián)ListView1.SmallI

15、cons = ImageList1 '設(shè)置循環(huán) 點(diǎn)擊瀏覽該文件For i = 1 To 5 '添加記錄Set ITM = ListView1.ListItems.Add() '添加第1列內(nèi)容ITM.Text = Cells(i, 1) '添加第2列內(nèi)容ITM.SubItems(1) = Cells(i, 2) '添加第3列內(nèi)容ITM.SubItems(2) = Cells(i, 3) '設(shè)置添加的記錄圖標(biāo)為ImageList1中序號(hào)為i的圖標(biāo). ITM.SmallIcon = iNext iSet ITM = NothingEnd Sub代碼說(shuō)明： 由以上兩個(gè)例可以看出，在圖標(biāo)顯示方式中要利用Icons 屬性建和和ImageList1的關(guān)聯(lián)，而在報(bào)表格式中則使用SmallIcons 屬性建立和ImageList1控件的關(guān)聯(lián)。 listview控件的內(nèi)容輸出：1、單條記錄輸出 第6例：如下圖所示，當(dāng)雙擊Listview1時(shí)，會(huì)把當(dāng)前記錄填充到AC列的單元格中。此主題相關(guān)圖片如下：示例文件：添加代碼Listbox1見第3樓：雙擊事件代碼：Private Sub ListView1_DblClick()'聲明變量Dim X As Long'得到A列第一個(gè)空單元格行數(shù) X = A65536.End(xlUp).R