实例学控件----Listview控件（原创）5.29更新第4楼

兰色幻想

我准备用几天的时间全力搜集listview控件有关的信息，并以实例的方式方面大家学习。估计还要几天才能完成，请大家耐心等待。 一、认识listview控件的四种视图： 1、图标视图 特点：可用鼠标操作，使用户能够拖放该对象，并重新排列它们。 2、小图标视图 特点：同时能够显示更多的 ListItem。与图标视图相似，可由用户重新排列对象。 3、列表视图 特点：提供排序的 ListItems 对象视图 4、报表视图 特点：提供排序的视图，通过 SubItems 能够显示更多的信息。

[此贴子已经被作者于2006-5-29 18:49:17编辑过]

兰色幻想

二、listview控件的基本操作：

1、添加列。 第1例：为listview控件添加三列，分别显示为“QQ号”，“呢称”和“来自何处”。 示例文件： JyJHamWH.rar (11.79 KB, 下载次数: 1977)

2006-5-28 20:49 上传

点击文件名下载附件

代码： Private Sub UserForm_Initialize() '声明变量类型 Dim ITM As ListItem '添加QQ号列，列宽占总宽度的三分之一，左对齐 ListView1.ColumnHeaders.Add , , "QQ号", ListView1.Width / 3, lvwColumnLeft '添加呢称列，列宽占总宽度的三分之一，居中对齐 ListView1.ColumnHeaders.Add , , "呢称", ListView1.Width / 3, lvwColumnCenter '添加来自何处列，列宽占总宽度的三分之一，右对齐 ListView1.ColumnHeaders.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.SubItems(1) = Cells(i, 2) '添加记录的第三列内容 ITM.SubItems(2) = Cells(i, 3) Next i End Sub 代码说明： 1、ListView1的Gridlines属性为True时显示表格线，为False不显示表格线。 2、在ListView控件中，添加记录要通过ListItems集合对象来实现，如本例中Set ITM = ListView1.ListItems.Add() 3、设置第一列的内容是通过text属性来添加，而以后各列的添加则通过SubItems对象来实现。第2列为SubItems（1）第3列为SubItems（2）.......... 4、在Listview控件第1列只能左对齐，而不能采取其他对齐方式

[此贴子已经被作者于2006-5-29 12:44:36编辑过]

兰色幻想

三、listview控件的图示显示：

1、listview图标显示格式中的图标设置 第4例：设置一系统登陆窗体，使用listview控件显示用户列表。如下图所示。 ylgdbA0T.rar (11.73 KB, 下载次数: 1100)

2006-5-28 23:16 上传

点击文件名下载附件

代码： Private Sub UserForm_Initialize() '定义变量数据类型 Dim ITM As ListItem '添加QQ号列 ListView1.ColumnHeaders.Add 1, , "QQ号", ListView1.Width / 3 '添加呢称列 ListView1.ColumnHeaders.Add 2, , "呢称", ListView1.Width / 3, lvwColumnCenter '添加来自何处列 ListView1.ColumnHeaders.Add 3, , "来自何处", ListView1.Width / 3 '设置显示格式为报表格式 ListView1.View = lvwReport '显示网格线 ListView1.Gridlines = True '建立控件和ImageList1关联 ListView1.SmallIcons = 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 = i Next i Set ITM = Nothing End Sub 代码说明： 由以上两个例可以看出，在图标显示方式中要利用Icons 属性建和和ImageList1的关联，而在报表格式中则使用SmallIcons 属性建立和ImageList1控件的关联。

[此贴子已经被作者于2006-5-29 18:29:16编辑过]

兰色幻想

四、listview控件的内容输出： 1、单条记录输出 第6例：如下图所示，当双击Listview1时，会把当前记录填充到A~C列的单元格中。 zgnbEfh8.rar (16.21 KB, 下载次数: 1393)

2006-5-29 18:43 上传

点击文件名下载附件

添加代码Listbox1见第3楼： 双击事件代码：Private Sub ListView1_DblClick() '声明变量 Dim X As Long '得到A列第一个空单元格行数 X = [A65536].End(xlUp).Row + 1 '在A列中填入当前记录的第1列(标签文本)内容 Cells(X, 1) = ListView1.SelectedItem.Text '在B列中填入当前记录的第2列内容 Cells(X, 2) = ListView1.SelectedItem.SubItems(1) '在C列中填入当前记录的第3列内容 Cells(X, 3) = ListView1.SelectedItem.SubItems(2) End Sub 代码说明： SelectedItem属性即是指当前选取的记录

[此贴子已经被作者于2006-5-29 18:46:08编辑过]

兰色幻想

五、listview控件的格式调整：

等待编辑............

兰色幻想

二、listview控件的内容排序：

等待编辑............

兰色幻想

七、listview控件数据库链接：

等待编辑............

兰色幻想

八、listview控件的疑难解答：

等待编辑............

兰色幻想

二、listview控件佳作学习：

等待编辑............

兰色幻想

十、其他相关内容：

等待编辑............