如何制作文件列表（附图说明）

[Pardi]

想用vb6制作一个有项目属性的文件列表，类似网际快车的文件列表，如下图：


本人接触vb6时间不长，所以烦请解释的详细些，先谢了！

[萧城]

帮不上忙，帮你顶帖子。

[Pardi]

谢谢顶！

[apu510064]

看不到图片，用ListView可以实现，用文件或者数据库保存数据

[Pardi]

查到用ListView可以实现。写了一些测试代码但运行没任何效果，ListView还是大白框一个，代码如下：
Private Sub Form_Load()
MsgBox ("!")
ListView1.ListItems.Clear
ListView1.LabelEdit = lvwManual
ListView1.ColumnHeaders.Add , , "id", 1000
ListView1.ColumnHeaders.Add , , "档案号", 1200
End Sub
这段代码是不就能显示出表头？

[Sandrer]

ListView1.View = lvwReport

[Sandrer]

只有报表样式才支持列头

[SYSSZ]

'刚写的代码,在窗体上放一个ListView,生成20列100行的列表
Private Sub Form_Load()
Dim i As Integer
Dim Itm As ListItem
ListView1.View = lvwReport
Dim j As Integer
For j = 1 To 20
ListView1.ColumnHeaders.Add j, "a" & j, "第" & j & "列"
Next
For i = 1 To 100
Set Itm = ListView1.ListItems.Add(i, "a" & i, "第" & i & "行")
Next
For i = 1 To 100
For j = 1 To 20
ListView1.ListItems(i).ListSubItems.Add j, , "212"
Next
Next
End Sub