Listview控件上期說到，又愛又恨，本節内容将介紹一個有顔色的内容。

一個工作表，如果加上不同的圖标來進行區分顯示，那麼就顯得十分美觀了。

給列表表頭或内容用一個圖片來顯示效果，如下圖樣式：

下圖為小圖标顯示樣式

下圖為列表顯示樣式

下圖為大圖标顯示樣式

通過給文字表格添加圖标，是不是看上去好看了不少？

下面重點說一下，如何實現給Listview控件添加這些圖标。

首先，我們用到了另一個控件ImageList，這是個圖片列表對象，也就是說，把所有用到的圖标首先要放置到這個對象裡面，當Listview用到的時候在這裡取。

這個對象沒有實際形狀，所以也不做外觀編輯，隻要将圖片添加到ImageList對象裡就可以。

添加方法可以進行面向對象方式進行，代碼方式，本節不做介紹。

好，完成這一步是前提，然後在進行Listview屬性設置，才能正确地從ImageLIst對象中提取出相應的圖标。

設置方法：

.Icons = Me.ImageList1 '大圖标 .SmallIcons = Me.ImageList1 '小圖标 .ColumnHeaderIcons = Me.ImageList1 '列表圖标 .View = lvwReport

分别有4個屬性來進行：

1. Icons 表示大圖标
2. SmallIcons 表示小圖标
3. ColumnHeaderIcons 表示表頭圖标
4. View 表示是哪種方式來進行顯示

View有4個可選項： lvwSmallIcon、lvwIcon、 lvwList、 lvwReport

通過以上設置，那就實現了給Listview控件添加圖标建立聯系，當然還不能看到圖标，還有重要的一步，那就是添加圖标。

添加圖标是程序中進行的一個頻繁運行環節，因為要給每條信息添加不同的圖标。

添加方法：

Listview1.ColumnHeaders.Add , , "文字", 100, , 1

上述代碼是添加标題圖标的方法，其中1代表ImageList控件圖标的索引号，也就是添加圖片索引号為1的圖标。

Listview1.ListItems.Add(,,"文字",1,1)

上述代碼是添加數據圖标的方法，其中1代表ImageList控件圖标的索引号，也就是添加圖片索引号為1的圖标。

這裡看到有2個1，第一個1表示大圖标，第二個1表示小圖标。

完整代碼：

Private Sub UserForm_Initialize() Dim xArr, xi As Integer xArr = Array("打開", "設置", "編輯", "聯系") Dim li As Integer, ic As Single ic = Me.ImageList1.ListImages.Count With Me.ListView1 .Icons = Me.ImageList1 '大圖标 .SmallIcons = Me.ImageList1 '小圖标 .ColumnHeaderIcons = Me.ImageList1 '列表圖标 .View = lvwReport For li = 1 To ic '添加表頭 .ColumnHeaders.Add , , xArr(li - 1), .Width \ ic, , li Next li For li = 1 To ic With .ListItems.Add .Icon = li .SmallIcon = li .Text = xArr(li - 1) For xi = 1 To ic - 1 .SubItems(xi) = xi Next xi End With Next li End With End Sub

按鈕代碼：

可以創建4個按鈕，分别設置如下代碼

Private Sub CommandButton1_Click() Me.ListView1.View = lvwSmallIcon End Sub Private Sub CommandButton2_Click() Me.ListView1.View = lvwIcon End Sub Private Sub CommandButton3_Click() Me.ListView1.View = lvwList End Sub Private Sub CommandButton4_Click() Me.ListView1.View = lvwReport End Sub

通過樣一個操作，就完成了給Listview列表添加圖标的功能。

歡迎關注、收藏

---END---

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!