Excel窗體控件 ListView

Excel VBA 中，ListView 是一個用于顯示列表數據的控件。它提供了一個類似于 Windows 資源管理器的界面，可以用于顯示和管理列表項。通過 VBA 代碼，可以對 ListView 進行各種操作，如添加、刪除、修改列表項，以及響應列表項的點擊事件等。下面是一個 Excel VBA 中使用 ListView 控件的簡單教程。

1. 在 Excel 中添加 ListView 控件

首先需要在 Excel 中添加 ListView 控件。打開 Excel，選擇“開發工具”選項卡，然后點擊“插入”按鈕，在彈出的菜單中選擇“ActiveX 控件”下的“ListView Control”。在 Excel 工作表中繪制一個合適大小的 ListView 控件。

2. 設置 ListView 控件的常用屬性

ListView 控件的常用屬性包括：

ListItems：返回一個 ListView.ListItems 集合，用于訪問和操作列表項。
ColumnHeaders：返回一個 ListView.ColumnHeaders 集合，用于訪問和操作列表頭。
MultiSelect：設置是否允許多項選擇。
LabelEdit：設置是否允許編輯列表項的標簽。
View：設置列表的顯示模式，如大圖標、小圖標、列表等。
SortOrder：設置列表的排序順序。

可以通過在 VBA 代碼中設置這些屬性來控制 ListView 的行為。例如，以下代碼設置 ListView 的多項選擇屬性為 False，不允許多項選擇：

ListView1.MultiSelect=False

3. 添加和刪除列表項

可以使用 ListView.ListItems.Add 方法向 ListView 中添加列表項，使用 ListView.ListItems.Remove 方法從 ListView 中刪除列表項。例如，以下代碼添加一個名為“item1”的列表項：

Set lvi=ListView1.ListItems.Add(1, "item1", "item1")

其中，第一個參數“1”表示添加到第一列，第二個參數“item1”表示列表項的文本，第三個參數“item1”表示列表項的標簽。

4. 修改列表項的文本和標簽

可以使用 ListView.ListItems.Item 方法獲取指定索引的列表項，然后修改其文本和標簽。例如，以下代碼將第一個列表項的文本修改為“new item1”：

ListView1.ListItems(1).Text="new item1"

其中，“1”表示第一個列表項的索引。

5. 響應列表項的點擊事件

可以使用 ListView.ListItems.ItemClick 事件響應列表項的點擊事件。例如，以下代碼在列表項被點擊時彈出一個消息框：

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    MsgBox Item.Text
End Sub

其中，“ListView1_ItemClick”是自定義的事件處理程序名稱，“ByVal Item As MSComctlLib.ListItem”表示傳遞給事件處理程序的參數類型為 ListView.ListItem。

6. 從 Excel 中讀取數據并顯示在 ListView 中

可以使用 VBA 代碼從 Excel 中讀取數據，并將其顯示在 ListView 中。例如，以下代碼從名為“Sheet1”的工作表中讀取第一列和第二列的數據，并顯示在 ListView 中：

Sub ReadDataFromExcel()
    Dim arr As Variant
    arr=ThisWorkbook.Sheets("Sheet1").Range("A1:B10")
    ListView1.ListItems.Clear
    For i=1 To UBound(arr, 1)
        Set lvi=ListView1.ListItems.Add(1, arr(i, 1), arr(i, 2))
    Next
End Sub

其中，“ReadDataFromExcel”是自定義的過程名稱。使用ThisWorkbook.Sheets("Sheet1").Range("A1:B10")獲取數據，并將其存儲在一個數組中。然后，使用一個循環將數組中的數據添加到 ListView 中。

需要注意的是，上述代碼中的“Sheet1”和“A1:B10”需要根據實際情況進行修改。此外，還可以根據需要對數據進行進一步處理，如添加到數據庫中。

istView是WinForm中的一個Windows 列表視圖控件，可以通過5種不同的視圖形式來動態顯示數據的集合。ListView提供了很多基本屬性和事件，通過定義屬性和事件我們可以設計出符合我們需求的樣式及功能。

ListView的View視圖屬性

要想用好ListView控件我們需要先來了解下ListView的視圖模式，ListView提供了五種視圖顯示模式，分別是：

LargeIcon：每項都顯示一個最大化圖標和一個標簽（標簽在圖標的下方）；

Details：需要有列表頭（否則不顯示內容），可以顯示任意的列，但只有第一欄可以包含一個小圖標和標簽（標簽在圖標的右方），其它的列項可以顯示文字信息或控件（顯示控件可以通過重寫ListView方法來實現）；

SmallIcon：每個項都顯示一個小圖標和一個標簽（標簽在圖標的右方）；

List：跟SmallIcon差不多，每個項都顯示一個小圖標和一個標簽（標簽在圖標的右方）；各項排列在列中，沒有列標頭

Tile：每個項都顯示一個完整大小的圖標，右邊顯示一個標簽和子項信息（僅Windows XP 和 Windows Server 2003 系統支持）。

我的Dome是要獲取文件夾下載所有文件信息并將文件信息顯示在ListView列表中，它每項需要顯示多列數據顯然只有Details視圖適合我們。ListView默認視圖為LargeIcon，我們只要選擇控件在屬性中找到view屬性，選擇Details即可。

Details視圖結構

在Details視圖模式中，ListView為我們整個視圖控件，跟Excel表格相似有列和行的概念。Columns定義ListView標題（不算入列表數據中，就是個列表頭）；items定義ListView顯示的數據項，是Item的集合；Item定義到items中的每一行（通過實例化ListViewItem獲取）；SubItem則定位到了Item中的具體單元格。

創建列表頭

Details有個特點就是必須創建列表頭不然就算你添加了數據也無法顯示的，創建列表頭我們可以通過ColumnHeader來實現，每顯示一列就需要有一個列表頭。如果通過ColumnHeader實例化添加比較麻煩的話可以使用下面這種方式添加比較簡潔，如果列表較多的話可以用循環遍歷實現。

列表項添加數據

向列表項中添加數據我們可以通過ListView中的item屬性來添加，多行數據可以通過for或者foreach來遍歷數據集。這里通過folderBrowserDialog控件來選擇文件夾并拿到文件夾中的所有對象，通過foreach遍歷對象判斷對象是否文件夾，如果是文件夾則獲取文件夾名稱如果是文件則獲取文件名，最后通過Add方法將該信息添加到ListView中的item屬性中。

向列表項中添加多列數據

上面我們將文件名寫入了列表項中，但你會發現每行只有一條數據，在沒有定義item時默認只有一條數據。如果我們一行需要寫入多條數據該怎么操作呢，這時候我們可以通過ListViewItem來實例化item對象，再使用SubItems.Add()方法將當行內單元格的數據添加到item集合中，最后把item集合拋給items即可。當然你也可以通過指定items下標來對指定行追加每列數據，SubItems.Add()方法會依次向后添加一列數據（注意：該列必須定義列表頭方能顯示數據）。

列表綁定圖標

首先使用imagelist控件先生成一個圖片列表，右鍵imagelist控件->選擇圖像->添加，將你準備的圖標（支持ico圖標）添加進來。然后通過與imageList列表集合綁定來獲取每項圖標，選擇的不同視圖模式對應不同的綁定屬性，Details、SmallIcon、List視圖使用listView1.SmallImageList屬性，LargeIcon、Tile視圖使用listView1.LargeImageList屬性，否則圖標將無法正常顯示。

綁定只需通過ListViewItem的ImageIndex屬性指向imageList的下標即可，如果用foreach遍歷我們需要自行添加一個變量來指定下標。

THE END

在線咨詢

上一篇：Java使用aspose刪除pdf中不需要的圖片
下一篇：計算機網絡的知識點（上）

您的項目需求

*請認真填寫需求信息，我們會在24小時內與您取得聯系。

整合營銷服務商

Excel窗體控件 ListView

您的項目需求