麻烦看下这段vb代码中的问题,关于listview的listsubitem

Question

Private Sub Form_Load() 
Dim fs1 As New FileSystemObject 
Dim Ufolder As Folder 
Dim Ufile As File 
'============================================================= 
ListView1.ColumnHeaders.Add 1, , "名称", ListView1.Width / 4 
ListView1.ColumnHeaders.Add 2, , "大小", ListView1.Width / 6, 1 
ListView1.ColumnHeaders.Add 3, , "类型", ListView1.Width / 4, 1 
ListView1.ColumnHeaders.Add 4, , "修改日期", ListView1.Width / 4, 0 
aa = Dir1.Path 
Set Ufolder = fs1.GetFolder(aa) 
Set filenum = Ufolder.Files 
For Each Ufile In filenum 
Dim li As ListItem 
Set li = ListView1.ListItems.Add(, , Ufile.Name) 
dxstr = Format(Int(Ufile.Size / 1024), "####,####") + "KB" 
ListView1.ListItems(li.Index).ListSubItems.Add , , dxstr 
ListView1.ListItems(li.Index).ListSubItems.Add , , Str(Ufile.DateLastModified) 
ListView1.ListItems(li.Index).ListSubItems.Add , , Ufile.Type 
Next 
End Sub 
执行到ListView1.ListItems(li.Index).ListSubItems.Add , , dxstr   的时候报错,说ListSubItems未找到方法或数据成员.谢谢.

Answer 1

Dim itmx As ListItemPrivate Sub Form_Load()
Set itmx = ListView1.ListItems.Add(, , "*****")  '第一列
itmx.SubItems(1) = "**********" '第二列
itmx.SubItems(2) = "**********" '第三列
itmx.SubItems(3) = "**********" '第四列
End Sub

Answer 2

Private Sub Form_Load()
Dim fs1 As New FileSystemObject
Dim Ufolder As Folder
Dim Ufile As File
'=============================================================
ListView1.ColumnHeaders.Add 1, , "名称", ListView1.Width / 4
ListView1.ColumnHeaders.Add 2, , "大小", ListView1.Width / 6, 1
ListView1.ColumnHeaders.Add 3, , "类型", ListView1.Width / 4, 1
ListView1.ColumnHeaders.Add 4, , "修改日期", ListView1.Width / 4, 0
aa = "I:"
Set Ufolder = fs1.GetFolder(aa)
Set filenum = Ufolder.Files
For Each Ufile In filenum
Dim li As ListItem
Set li = ListView1.ListItems.Add(, , Ufile.Name)
dxstr = Format(Int(Ufile.Size / 1024), "####,####") + "KB"
li.SubItems(1) = dxstr
li.SubItems(2) = Str(Ufile.DateLastModified)
li.SubItems(3) = Ufile.Type
Next
End Sub

Answer 3

vb没有ListSubItems这个函数
要改为SubItems
Set li = ListView1.ListItems.Add(, , Ufile.Name)
dxstr = Format(Int(Ufile.Size / 1024), "####,####") + "KB"
li.SubItems(1) = dxstr
li.SubItems(2) = Str(Ufile.DateLastModified)
li.SubItems(3) = Ufile.Type

Answer 4

受教了,这段程序是一个TMD教科书上的,都是错误...改完了倒是能学到不少!!我先改改回来结帖子.

Answer 5

可是在网上有这样的用法啊.ListView对象及对象属性。 ListView控件的对象层次结构 
ListView -整个控件 
ColumnHeaders -标题行 
ColumnHeader -标题列 
ListItems -对象行集合 
ListItem -对象行 
ListSubItems -对象属性集合 
ListSubItem -对象属性 
注意：SubItems和ListSubItems的区别：SubItems是一个String数组；ListSubItems是一个集合。 也有这个属性.弄明白了现在这个程序当然好,但是更想弄明白ListSubItems,谢谢各位了