ListView的几个问题

阿笨学VBA

1、ListView问题，可否注解一下？

acount = Sheets("Sheet3").Cells(65536, 1).End(xlUp).Row + 1
For i = 1 To acount
    ListView1.ListItems.Add , , Sheets("Sheet3").Cells(i + 1, 1).Value
     For x = 1 To 3
     ListView1.ListItems(i).SubItems(x) = Sheets("Sheet3").Cells(i + 1, x + 1).Value
    Next x
    Next i

2、SubItems不好理解，帮助里没有

ActiveCell.Value = ListView1.SelectedItem
     ActiveCell.Offset(0, 1).Value = ListView1.SelectedItem.SubItems(1)
    ActiveCell.Offset(0, 2).Value = ListView1.SelectedItem.SubItems(2)
    ActiveCell.Offset(0, 3).Value = ListView1.SelectedItem.SubItems(3)

来生缘

ListItems 属性（ListView 控件）

      

返回 ListView 控件中 ListItem 对象集合的引用。

语法

object.ListItems

object 所在处代表对象表达式，其值是 ListView 控件。

说明

可使用标准集合方法操作 ListItem 对象。集合中每个 ListItem 可通过其唯一关键字访问，此关键字在 Key 属性中创建并存贮。

也可使用 Index 属性根据 ListItem 对象的显示位置检索 ListItem 对象。

Add 方法 (ListItems、 ColumnHeaders)、ListItems 属性、SubItems 属性示例

下面的示例使用 Biblio.mdb 数据库作为资源，通过 ListItem 对象移居 ListView 控件。要试用此例，请将一个 ListView 控件放置在窗体上，并将代码粘贴到窗体的声明部分。

还必须确保已将 Biblio.mdb 安装在机器上。在以下代码中检查 OpenDatabase 函数中的路径，并改变它，使之反映 Biblio.mdb 在机器上的实际路径。

注意 除非添加到 Microsoft DAO 3.5 对象库的“引用”，否则示例无法运行。为此，在 Project 菜单上单击 References。搜索 Microsoft DAO 3.5 对象库并单击复选框来选择。

Private Sub Form_Load()
   '添加 ColumnHeaders。列宽度等于控件宽度
   '除以 ColumnHeader 对象的数目。
   ListView1.ColumnHeaders. _
		
			Add , , "Author", ListView1.Width / 3)
		   ListView1.ColumnHeaders. _
		
			Add , , "Author ID", ListView1.Width / 3, _
		   lvwColumnCenter
		   ListView1.ColumnHeaders. _
		
			Add , , "Birthdate", ListView1.Width / 3)
		
		
		   ' Set View property to Report.
		   ListView1.View = lvwReport 
		   '为数据访问对象声明对象变量。
   Dim myDb As Database, myRs As Recordset
		   '设置 Database 为 BIBLIO.MDB 数据库。
   ' IMPORTANT: the Biblio.mdb must be on your
		   ' machine, and you must set the correct path to
		   ' the file in the OpenDatabase function below.
		   Set myDb =    DBEngine.Workspaces(0) _
		      .OpenDatabase("c:\Program Files\VB\BIBLIO.MDB")
		   '设置 recordset 为 "Authors" 表。
   Set myRs = _
		   myDb.OpenRecordset("Authors", dbOpenDynaset)
		
		
		   '声明变量以添加 ListItem 对象。
   Dim itmX As ListItem
		   '若当前记录不是最后一条记录，则添加一个 ListItem 对象。
   'ListItem 对象的文本使用 author 字段。
   'ListItem 对象的 SubItem(1) 使用 AuthorID 字段。
   'ListItem 对象的 SubItem(2) 使用 "Year of Birth" 字段。

   While Not myRs.EOF
		      Set itmX = ListView1.ListItems. _
		
			Add(, , CStr(myRs!Author),1)   'Author 字段。
      
      '若 AuthorID 字段不为空，则将 SubItem 1 设置为此字段。
      If Not IsNull(myRs!Au_id) Then
		         itmX.SubItems(1) = CStr(myRs!Au_id)   ' Author ID。
      End If
		      '若 birth 字段不为空，则将 SubItem 2 设置为此字段。
      If Not IsNull(myRs![Year Born]) Then
		         itmX.SubItems(2) = myRs![Year Born]
		      End If
		      myRs.MoveNext   '移动到下一条记录。
   Wend
		End Sub
	

来生缘

SubItems 属性（ListView 控件）

      

返回或设置一个字符串（子项目）数组，它代表 ListView 控件中 ListItem 对象的数据。

语法

object.SubItems(index) [= string]

SubItems 属性的语法包含下面部分：

部分	描述
object	对象表达式，其值是 ListItem 对象。
index	标识指定的 ListItem 子项目的整数。
string	描述子项目的文字。

说明

子项目是字符串数组，代表显示在报表视图中 ListItem 对象的数据。例如，它可以显示文件大小及文件的最后修改日期。

ListItem 对象可包含任意数目的关联项目数据字符串（子项目），但每个 ListItem 对象子项目数目必须相同。

每个子项目都定义了相关的列标头。

无法直接向子项目数组添加元素。使用 ColumnHeaders 集合中的 Add 方法添加子项目。

一指禅62

可以改变ListView 行高的方法

http://club.excelhome.net/thread-703775-5-1.html    43楼

fox_9741

        标题1           标题2                         标题3
行1   Listitem1       Listitem1.Subitem1      Listitem1.Subitem2
行2   Listitem2       Listitem2.Subitem1      Listitem2.Subitem2
行3   Listitem3       Listitem3.Subitem1      Listitem3.Subitem2