Question

怎样使用ListView控件展示数据

Answer 1

ListView控件的最基本用法是在窗体中以表格形式显示数据，是应用非常广泛的一个窗体控件。控件工具箱在初始状态下是没有ListView控件的，需要我们在工具-附加控件中勾选"MicrosoftListViewControl,Version6.0"，这样ListView控件就会显示在控件工具箱中了。ListView分为表头和数据两部分，而数据部分的第一列和其他列又是分开的，需要用不同的方式来访问。假设我们在Sheet1中有一个5行4列的表格，现在我们看下怎样将这个表格中的数据导入到ListView控件中。下面我们先来看怎样给ListView控件添加表头。有两种方法，先来看第一种PrivateSubUserForm_Initialize()ListView1.ColumnHeaders.Add1,"A","姓名",ListView1.Width/4,lvwColumnLeft'列数，key，text，宽度，对齐方式，图片ListView1.ColumnHeaders.Add2,"B","性别",ListView1.Width/4,lvwColumnCenterListView1.ColumnHeaders.Add3,"C","年龄",ListView1.Width/4,lvwColumnCenterListView1.ColumnHeaders.Add4,"D","住址",ListView1.Width/4,lvwColumnCenterListView1.View=lvwReport'显示方式ListView1.FullRowSelect=False'是否整行选取ListView1.Gridlines=True'是否显示表格线EndSub添加表头的第一种方法是用ColumnHeaders.Add的方法，该方法包括6个参数，比如上面第一行代码中1代表第一列，"A"是该列的一个简称（不写也可以），“姓名”是要显示的文字，下一个参数是宽度，这里我们一共4列，所以第一列宽度设为控件宽度（ListView1.Width）的1/4，第5个参数是对齐方式，其中第一列必须是左对齐的，其他列可以设置左右或居中对齐，第6个参数是图标索引，我们后面再讲，这里其中所有的参数都是可省略的，一般写上显示的文字和宽度即可。ListView1.View是设置ListView控件的显示方式，一共四种，这里lvwReport是报表形式显示，其他的我们后面再讲。FullRowSelect是指可否整行选取，Gridlines是否显示网格线，这些属性自己试下就知道了。当然我们也可以用循环的方式来简化代码PrivateSubUserForm_Initialize()DimiFori=1To4ListView1.ColumnHeaders.Addi,,Cells(1,i),ListView1.Width/4NextListView1.FullRowSelect=TrueListView1.View=lvwReportListView1.Gridlines=TrueEndSub对列加了个For循环而已，其实是完全相同的。下面我们来看怎样向ListView控件中添加数据。两种方法，下面来看第一种PrivateSubCommandButton1_Click()DimitmAsListItem,i,List,liListView1.ListItems.Clear'清除数据Fori=2To5Setitm=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)NextEndSub当然添加新数据之前要把原有数据先删除，用的是ListItems的Clear方法ListItem对象就是控件的行。先用ListItems的Add方法添加一个空行，用变量itm来表示，下面就要向这个空行中添加数据，我们上面说过第一列和其他列的表示方法是不同的，第一列赋值要用Text，之后各列用SubItems数组来赋值，第2列序号是1，第3列序号是2，依次类推。下面来看添加数据的另一种方法，ListSubItems对象'Fori=2To5'SetList=ListView1.ListItems.Add(Text:=Cells(i,1))'Setli=List.ListSubItems.Add(Text:=Cells(i,2))'subitems是个数组，Listsubitems是个对象集合'Setli=List.ListSubItems.Add(Text:=Cells(i,3))'Setli=List.ListSubItems.Add(Text:=Cells(i,4))'Next前面都一样，我只把For循环这段贴出来了，同样是用ListItems.Add新建一个空行，不同的是直接给其赋了一个值，这个值就是赋在第一列的，之后又用List（刚添加的空行）的ListSubItems的Add方法，相当于在该行添加一个列，再赋值，有几列就添加用个ListSubItems。ListSubItems和SubItems的区别在于前者是一个对象集合，既然是对象就有可以设置格式（可以和工作表的Range对象类比），而后者仅仅是一个数组，因此也就不存在格式之类的属性了，所以如果需要给ListView控件改变格式就要用ListSubItems对象。