认识listview控件的四种视图.docVIP

认识listview控件的四种视图：1、图标视图特点：可用鼠标操作，使用户能够拖放该对象，并重新排列它们。2、小图标视图特点：同时能够显示更多的 ListItem。与图标视图相似，可由用户重新排列对象。3、列表视图特点：提供排序的 ListItems 对象视图4、报表视图特点：提供排序的视图，通过 SubItems 能够显示更多的信息。二、listview控件的基本操作： 1、添加列。 ?第1例：为listview控件添加三列，分别显示为“QQ号”，“呢称”和“来自何处”。 示例文件：点击浏览该文件 代码： Private Sub UserForm_Initialize() ListView1.ColumnHeaders.Add , , QQ号 添加QQ号列 ?ListView1.ColumnHeaders.Add , , 呢称 添加呢称列 ?ListView1.ColumnHeaders.Add , , 来自何处 添加来自何处列 ?ListView1.View = lvwReport 设置显示方式为报表格式 ?End Sub 代码说明： ?1、在工作表中用Column表示列。而在Listview控件中，用ColumnHeaders对象来操作列，而添加新的列可以用ColumnHeaders对象的ADD方法。具体如下：?ListView1.ColumnHeaders.Add 序号，唯一的字符串标识，列标显示文字，列宽，列的内容对齐方式，所使用的图标序号。 如本例中：ListView1.ColumnHeaders.Add , , QQ号 ?2、Listview控件的View 属性决定着它的显示的方式，具体如下： ListView1.View = lvwIcon 图标显示 ListView1.View = lvwSmallIcon 小图标显示 ListView1.View = lvwList 列表显示 ListView1.View = lvwReport 报表显示 添加效果： 此主题相关图片如下： 第2例：为listview控件添加三列，分别显示为“QQ号”，“呢称”和“来自何处”。另三列的列宽各占用ListView1控件总宽度的三分之，第1列为左对齐，第2列为居中对齐，第3列为右对齐。 代码： Private Sub UserForm_Initialize() 添加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 设置显示方式为报表格式 ?End Sub 2、添加记录。 ?第3例：为listview控件添加三列，分别显示为“QQ号”，“呢称”和“来自何处”。并且把如下图所示工作表的中记录添加到listview控件中。效果如下图所示。 示例文件： 代码： 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() 添加记录的行标题(第一列内容) ?