listview控件完全教程

1、listview控件完全教程（兰色幻想原创）日期：2008-01-29 来源： 作者： 字体：大 中 小 我准备用几天的时间全力搜集listview控件有关的信息，并以实例的方式方面大家学习。估计还要几天才能完成，请大家耐心等待。一、认识listview控件的四种视图：1、图标视图特点：可用鼠标操作，使用户能够拖放该对象，并重新排列它们。此主题相关图片如下：2、小图标视图特点：同时能够显示更多的 ListItem。与图标视图相似，可由用户重新排列对象。此主题相关图片如下：3、列表视图特点：提供排序的 ListItems 对象视图此主题相关图片如下：4、报表视图特点：提供排序的视图，通过 Sub

2、Items 能够显示更多的信息。此主题相关图片如下：二、listview控件的基本操作：1、添加列。第1例：为listview控件添加三列，分别显示为“QQ号”，“呢称”和“来自何处”。 示例文件：代码： 点击浏览该文件Private Sub UserForm_Initialize()ListView1.ColumnHeaders.Add , , "QQ号" '添加QQ号列ListView1.ColumnHeaders.Add , , "呢称" '添加呢称列ListView1.ColumnHeaders.Add , , "来自何

3、处" '添加来自何处列ListView1.View = lvwReport ''设置显示方式为报表格式End Sub代码说明：1、在工作表中用Column表示列。而在Listview控件中，用ColumnHeaders对象来操作列，而添加新的列可以用ColumnHeaders对象的ADD方法。具体如下： ListView1.ColumnHeaders.Add 序号，唯一的字符串标识，列标显示文字，列宽，列的内容对齐方式，所使用的图标序号。 如本例中：ListView1.ColumnHeaders.Add , , "QQ号"2、Listvie

4、w控件的View 属性决定着它的显示的方式，具体如下： ListView1.View = lvwIcon '图标显示 ListView1.View = lvwSmallIcon '小图标显示 ListView1.View = lvwList '列表显示 ListView1.View = lvwReport '报表显示 添加效果：此主题相关图片如下：第2例：为listview控件添加三列，分别显示为“QQ号”，“呢称”和“来自何处”。另三列的列宽各占用ListView1控件总宽度的三分之，第1列为左对齐，第2列为居中对齐，第3列为右对齐。 示例文件：代码： 点击浏

5、览该文件Private Sub UserForm_Initialize() '添加QQ号列，列宽占总宽度的三分之一，左对齐 ListView1.ColumnHeaders.Add , , "QQ号", ListView1.Width / 3, lvwColumnLeft '添加呢称列，列宽占总宽度的三分之一，居中对齐ListView1.ColumnHeaders.Add , , "呢称", ListView1.Width / 3, lvwColumnCenter '添加来自何处列，列宽占总宽度的三分之一，右对齐ListView1.

6、ColumnHeaders.Add , , "来自何处", ListView1.Width / 3, lvwColumnRight '添加来自何处列ListView1.View = lvwReport '设置显示方式为报表格式End Sub添加后效果：此主题相关图片如下：2、添加记录。第3例：为listview控件添加三列，分别显示为“QQ号”，“呢称”和“来自何处”。并且把如下图所示工作表的中记录添加到listview控件中。效果如下图所示。此主题相关图片如下：示例文件：代码：Private Sub UserForm_Initialize() '声

7、明变量类型Dim ITM As ListItem '添加QQ号列，列宽占总宽度的三分之一，左对齐ListView1.ColumnHeaders.Add , , "QQ号", ListView1.Width / 3, lvwColumnLeft '添加呢称列，列宽占总宽度的三分之一，居中对齐ListView1.ColumnHeaders.Add , , "呢称", ListView1.Width / 3, lvwColumnCenter '添加来自何处列，列宽占总宽度的三分之一，右对齐ListView1.ColumnHeaders.

8、Add , , "来自何处", ListView1.Width / 3, lvwColumnRight '设置显示方式为报表格式ListView1.View = lvwReport '显示表格线ListView1.Gridlines = True '设置循环,填充记录For i = 1 To A65536.End(xlUp).Row '添加记录Set ITM = ListView1.ListItems.Add() '添加记录的行标题(第一列内容)ITM.Text = Cells(i, 1) '添加记录的第二列内容ITM.Sub

9、Items(1) = Cells(i, 2) '添加记录的第三列内容ITM.SubItems(2) = Cells(i, 3)Next iEnd Sub代码说明： 1、ListView1的Gridlines属性为True时显示表格线，为False不显示表格线。2、在ListView控件中，添加记录要通过ListItems集合对象来实现，如本例中Set ITM = ListView1.ListItems.Add()3、设置第一列的内容是通过text属性来添加，而以后各列的添加则通过SubItems对象来实现。第2列为SubItems（1）第3列为SubItems（2）.4、在Listvi

10、ew控件第1列只能左对齐，而不能采取其他对齐方式三、listview控件的图示显示：1、listview图标显示格式中的图标设置第4例：设置一系统登陆窗体，使用listview控件显示用户列表。如下图所示。此主题相关图片如下：示例文件：点击浏览该文件制作方法：在窗体插入以下控件。两个标签控件，两个按钮控件，一个Listview控件和一个ImageList控件。注：1、在Listview控件显示的图标需要通过建立和ImageList控件中图标相关联。2、在VBE编辑器中选取ImageList控件并在属性窗口中单击自定义，在弹出的属性页对话框的Images选项卡中插入ICO图示。方法是单击Inse

11、rt picture按钮插入图标文件。如下图所示。此主题相关图片如下：代码：Private Sub UserForm_Initialize() '设置控件显示方式为图标显示 ListView1.View = lvwIcon '建立和 ImageList1控件的关联 ListView1.Icons = ImageList1 '添加操作员张静ListView1.ListItems.Add , , "张静", 1 '添加操作员王枫 ListView1.ListItems.Add , , "王枫", 1 '添加操作员刘楠

12、ListView1.ListItems.Add , , "刘楠", 1 '添加操作员文生 ListView1.ListItems.Add , , "文生", 1 '添加操作员赵西城 ListView1.ListItems.Add , , "赵西城", 1 '添加操作员吴云ListView1.ListItems.Add , , "吴云", 1End Sub代码说明：ListView1.ListItems.Add , , "吴云", 1 中的1是指在IImageList1控件

13、中图片序号。 2、listview报表显示格式中的图标设置 第5例：为listview控件添加三列，分别显示为“QQ号”，“呢称”和“来自何处”。并且把如下图所示工作表的中记录添加到listview控件中，并且在每行前添加ImageList1中的图示。效果如下图所示此主题相关图片如下：示例文件： 代码：Private Sub UserForm_Initialize() '定义变量数据类型Dim ITM As ListItem '添加QQ号列ListView1.ColumnHeaders.Add 1, , "QQ号", ListView1.Width / 3

14、'添加呢称列 ListView1.ColumnHeaders.Add 2, , "呢称", ListView1.Width / 3, lvwColumnCenter '添加来自何处列 ListView1.ColumnHeaders.Add 3, , "来自何处", ListView1.Width / 3 '设置显示格式为报表格式 ListView1.View = lvwReport '显示网格线ListView1.Gridlines = True '建立控件和ImageList1关联ListView1.SmallI

15、cons = ImageList1 '设置循环 点击浏览该文件For i = 1 To 5 '添加记录Set ITM = ListView1.ListItems.Add() '添加第1列内容ITM.Text = Cells(i, 1) '添加第2列内容ITM.SubItems(1) = Cells(i, 2) '添加第3列内容ITM.SubItems(2) = Cells(i, 3) '设置添加的记录图标为ImageList1中序号为i的图标. ITM.SmallIcon = iNext iSet ITM = NothingEnd Sub代码说明： 由以上两个例可以看出，在图标显示方式中要利用Icons 属性建和和ImageList1的关联，而在报表格式中则使用SmallIcons 属性建立和ImageList1控件的关联。 listview控件的内容输出：1、单条记录输出 第6例：如下图所示，当双击Listview1时，会把当前记录填充到AC列的单元格中。此主题相关图片如下：示例文件：添加代码Listbox1见第3楼：双击事件代码：Private Sub ListView1_DblClick()'声明变量Dim X As Long'得到A列第一个空单元格行数 X = A65536.End(xlUp).R