除非注明,，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng),，轉(zhuǎn)載請保留鏈接: http://www./cat1/295.html，VBA交流群273624828,。

今天我們來看一下VBA窗體中的ListView控件的基本用法,。ListView控件的最基本用法是在窗體中以表格形式顯示數(shù)據(jù)，是應(yīng)用非常廣泛的一個窗體控件,?？丶ぞ呦湓诔跏紶顟B(tài)下是沒有ListView控件的，需要我們在工具-附加控件中勾選"Microsoft ListView Control,Version 6.0",，這樣ListView控件就會顯示在控件工具箱中了,。ListView分為表頭和數(shù)據(jù)兩部分，而數(shù)據(jù)部分的第一列和其他列又是分開的,，需要用不同的方式來訪問,。假設(shè)我們在Sheet1中有一個5行4列的表格，現(xiàn)在我們看下怎樣將這個表格中的數(shù)據(jù)導(dǎo)入到ListView控件中,。

下面我們先來看怎樣給ListView控件添加表頭,。有兩種方法，先來看第一種

Private Sub UserForm_Initialize()
ListView1.ColumnHeaders.Add 1, "A", "姓名", ListView1.Width / 4, lvwColumnLeft  '列數(shù),，key,，text，寬度,，對齊方式,，圖片
ListView1.ColumnHeaders.Add 2, "B", "性別", ListView1.Width / 4, lvwColumnCenter
ListView1.ColumnHeaders.Add 3, "C", "年齡", ListView1.Width / 4, lvwColumnCenter
ListView1.ColumnHeaders.Add 4, "D", "住址", ListView1.Width / 4, lvwColumnCenter
ListView1.View = lvwReport    '顯示方式
ListView1.FullRowSelect = False  '是否整行選取
ListView1.Gridlines = True      '是否顯示表格線
End Sub

添加表頭的第一種方法是用ColumnHeaders.Add的方法，該方法包括6個參數(shù),，比如上面第一行代碼中1代表第一列,，"A"是該列的一個簡稱（不寫也可以），“姓名”是要顯示的文字,，下一個參數(shù)是寬度,，這里我們一共4列，所以第一列寬度設(shè)為控件寬度（ListView1.Width）的1/4,，第5個參數(shù)是對齊方式,，其中第一列必須是左對齊的，其他列可以設(shè)置左右或居中對齊,，第6個參數(shù)是圖標索引,，我們后面再講，這里其中所有的參數(shù)都是可省略的,，一般寫上顯示的文字和寬度即可,。ListView1.View是設(shè)置ListView控件的顯示方式，一共四種,，這里lvwReport是報表形式顯示,，其他的我們后面再講,。FullRowSelect是指可否整行選取，Gridlines是否顯示網(wǎng)格線,，這些屬性自己試下就知道了,。

當然我們也可以用循環(huán)的方式來簡化代碼

Private Sub UserForm_Initialize()
Dim i
For i = 1 To 4
ListView1.ColumnHeaders.Add i, , Cells(1, i), ListView1.Width / 4
Next
ListView1.FullRowSelect = True
ListView1.View = lvwReport
ListView1.Gridlines = True
End Sub

對列加了個For循環(huán)而已，其實是完全相同的,。

下面我們來看怎樣向ListView控件中添加數(shù)據(jù),。兩種方法，下面來看第一種

Private Sub CommandButton1_Click()
Dim itm As ListItem, i, List, li
ListView1.ListItems.Clear   '清除數(shù)據(jù)
For i = 2 To 5
Set itm = ListView1.ListItems.Add   '添加一個空行
itm.Text = Cells(i, 1)                               '添加第一列
itm.SubItems(1) = Cells(i, 2)              '添加第二列
itm.SubItems(2) = Cells(i, 3)
itm.SubItems(3) = Cells(i, 4)
Next
End Sub

當然添加新數(shù)據(jù)之前要把原有數(shù)據(jù)先刪除,，用的是ListItems的Clear方法ListItem對象就是控件的行,。先用ListItems的Add方法添加一個空行，用變量itm來表示,，下面就要向這個空行中添加數(shù)據(jù),，我們上面說過第一列和其他列的表示方法是不同的，第一列賦值要用Text,，之后各列用SubItems數(shù)組來賦值,，第2列序號是1，第3列序號是2,，依次類推,。

下面來看添加數(shù)據(jù)的另一種方法，ListSubItems對象

'  For i = 2 To 5
'      Set List = ListView1.ListItems.Add(Text:=Cells(i, 1))
'      Set li = List.ListSubItems.Add(Text:=Cells(i, 2))   'subitems是個數(shù)組,，Listsubitems是個對象集合
'      Set li = List.ListSubItems.Add(Text:=Cells(i, 3))
'      Set li = List.ListSubItems.Add(Text:=Cells(i, 4))
'  Next

前面都一樣,，我只把For循環(huán)這段貼出來了，同樣是用ListItems.Add新建一個空行,，不同的是直接給其賦了一個值,，這個值就是賦在第一列的，之后又用List（剛添加的空行）的ListSubItems的Add方法,，相當于在該行添加一個列,，再賦值，有幾列就添加用個ListSubItems,。ListSubItems和SubItems的區(qū)別在于前者是一個對象集合,，既然是對象就有可以設(shè)置格式（可以和工作表的Range對象類比），而后者僅僅是一個數(shù)組,，因此也就不存在格式之類的屬性了，所以如果需要給ListView控件改變格式就要用ListSubItems對象,。

這節(jié)先到這,，剩下的之后再講，示例文件下載：http://pan.baidu.com/s/1kTJZ0Yb,。