vba的附加控件中没有listview

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

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对象。

￥

5.9

百度文库VIP限时优惠现在开通,立享6亿+VIP内容

立即获取

listview控件在php的使用方法,VBA窗体之ListView控件的基本应用VBA实例教程

listview控件在php的使⽤⽅法,VBA窗体之ListView控件的基本

应⽤VBA实例教程

今天我们来看⼀下VBA窗体中的ListView控件的基本⽤法。ListView控件的最基本⽤法是在窗体中以表格形式显⽰数据，是应⽤⾮常⼴泛的⼀个窗体控件。控件⼯具箱在初始状态下是没有ListView控件的，需要我们在⼯具-附加控件中勾选"Microsoft ListView

第 1 页

Control,Version 6.0"，这样ListView控件就会显⽰在控件⼯具箱中了。ListView分为表头和数据两部分，⽽数据部分的第⼀列和其他列⼜是分开的，需要⽤不同的⽅式来访问。假设我们在Sheet1中有⼀个5⾏4列的表格，现在我们看下怎样将这个表格中的数据导⼊到ListView控件中。

下⾯我们先来看怎样给ListView控件添加表头。有两种⽅法，先来看第⼀种

第 2 页

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

第 3 页

ListView1.ColumnHeaders.Add 4, "D", "住址", ListView1.Width / 4, lvwColumnCenter

ListView1.View = lvwReport '显⽰⽅式

ListView1.FullRowSelect = False '是否整⾏选取

ListView1.Gridlines = True '是否显⽰表格线

第 4 页

End Sub

添加表头的第⼀种⽅法是⽤ColumnHeaders.Add的⽅法，该⽅法包括6个参数，⽐如上⾯第⼀⾏代码中1代表第⼀列，"A"是该列的⼀个简称(不写也可以)，“姓名”是要显⽰的⽂字，下⼀个参数是宽度，这⾥我们⼀共4列，所以第⼀列宽度设为控件宽度(ListView1.Width)的

第 5 页

1/4，第5个参数是对齐⽅式，其中第⼀列必须是左对齐的，其他列可以设置左右或居中对齐，第6个参数是图标索引，我们后⾯再讲，这⾥其中所有的参数都是可省略的，⼀般写上显⽰的⽂字和宽度即可。ListView1.View是设置ListView控件的显⽰⽅式，⼀共四种，这⾥lvwReport是报表形式显⽰，其他的我们后⾯再讲。FullRowSelect是指可否整⾏选取，Gridlines是否显⽰⽹格线，这些属性⾃⼰试下就知道了。

第 6 页

当然我们也可以⽤循环的⽅式来简化代码

Private Sub UserForm_Initialize()

Dim i

For i = 1 To 4

ListView1.ColumnHeaders.Add i, , Cells(1, i), ListView1.Width / 4

Next

第 7 页

ListView1.FullRowSelect = True

ListView1.View = lvwReport

ListView1.Gridlines = True

End Sub

对列加了个For循环⽽已，其实是完全相同的。

下⾯我们来看怎样向ListView控件中添加数据。两种⽅法，下⾯来看第⼀种

第 8 页

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) '添加第⼀列

第 9 页

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，依次类推。

第 10 页

下⾯来看添加数据的另⼀种⽅法，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是个对象集合

第 11 页

' 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对象。

添加listview控件的方法如下：

打开VB6.0

按下CTRL+T

添加Microsoft Windows Common Controls 6.0部件

就会出现listview控件了

1、首先，点击文件->新建->项目，打开项目创建视窗，切换到Visual Basic,选择Windows窗体应用程序，新建一个。

2、在左侧工具箱中找到ListView控件，单击并在右侧窗体中创建一个。

3、点击ListView控件右上角的小按钮，展开ListView任务面板，点击编辑项，打开ListViewItem集合编辑器。

4、新建一个按钮，在按钮的事件响应函数中写下MsgBox(ListView1.ToString())，ListView的ToString函数返回的是这个控件的信息，如图。

5、如果要获取所有item的信息，使用For Each循环遍历item如下。

6、这样把每个列表元素的ToString等信息存到tps字符串，显示出来如图。

---