listview控件在php的使⽤⽅法,VBA窗体之ListView控件的基本
应⽤VBA实例教程
今天我们来看⼀下VBA窗体中的ListView控件的基本⽤法。ListView控件的最基本⽤法是在窗体中以表格形式显⽰数据，是应⽤⾮常⼴泛的⼀个窗体控件。控件⼯具箱在初始状态下是没有ListView控件的，需要我们在⼯具-附加控件中勾选"Microsoft ListView
Control,Version 6.0"，这样ListView控件就会显⽰在控件⼯具箱中了。ListView分为表头和数据两部分，⽽数据部分的第⼀列和其他列⼜是分开的，需要⽤不同的⽅式来访问。假设我们在Sheet1中有⼀个5⾏4列的表格，现在我们看下怎样将这个表格中的数据导⼊到ListView控件中。
下⾯我们先来看怎样给ListView控件添加表头。有两种⽅法，先来看第⼀种
Private Sub UserForm_Initialize()
ListView1.ColumnHeaders.Add 1, "A", "姓名", ListView1.Width / 4, lvwColumnLeft  '列数，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个参数，⽐如上⾯第⼀⾏代码中1代表第⼀列，"A"是该列的⼀个简称(不写也可以)，“姓名”是要显⽰的⽂字，下⼀个参数是宽度，这⾥我们⼀共4列，所以第⼀列宽度设为控件宽度(ListView1.Width)的
1/4，第5个参数是对齐⽅式，其中第⼀列必须是左对齐的，其他列可以设置左右或居中对齐，第6个参数是图标索引，我们后⾯再讲，这⾥其中所有的参数都是可省略的，⼀般写上显⽰的⽂字和宽度即可。ListView1.View是设置ListView控件的显⽰⽅式，⼀共四种，这⾥lvwReport是报表形式显⽰，其他的我们后⾯再讲。FullRowSelect是指可否整⾏选取，Gridlines是否显⽰⽹格线，这些属性⾃⼰试下就知道了。
当然我们也可以⽤循环的⽅式来简化代码
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
listview控件在哪里End Sub
对列加了个For循环⽽已，其实是完全相同的。
下⾯我们来看怎样向ListView控件中添加数据。两种⽅法，下⾯来看第⼀种
Private Sub CommandButton1_Click()
Dim itm As ListItem, i, List, li
ListView1.ListItems.Clear  '清除数据
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
当然添加新数据之前要把原有数据先删除，⽤的是ListItems的Clear⽅法ListItem对象就是控件的⾏。先⽤ListItems的Add⽅法添加⼀个空⾏，⽤变量itm来表⽰，下⾯就要向这个空⾏中添加数据，我们上⾯说过第⼀列和其他列的表⽰⽅法是不同的，第⼀列赋值要⽤Text，之后各列⽤SubItems数组来赋值，第2列序号是1，第3列序号是2，依次类推。
下⾯来看添加数据的另⼀种⽅法，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是个数组，Listsubitems是个对象集合
'      Set li = List.ListSubItems.Add(Text:=Cells(i, 3))
'      Set li = List.ListSubItems.Add(Text:=Cells(i, 4))
'  Next
前⾯都⼀样，我只把For循环这段贴出来了，同样是⽤ListItems.Add新建⼀个空⾏，不同的是直接给其赋了⼀个值，这个值就是赋在第⼀列的，之后⼜⽤List(刚添加的空⾏)的ListSubItems的Add⽅法，相当于在该⾏添加⼀个列，再赋值，有⼏列就添加⽤个ListSubItems。ListSubItems和SubItems的区别在于前者是⼀个对象集合，既然是对象就有可以设置格式(可以和⼯作表的Range对象类⽐)，⽽后者仅仅是⼀个数组，因此也就不存在格式之类的属性了，所以如果需要给ListView控件改变格式就要⽤ListSubItems对象。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。