菜鸟问题——关于一种控件

Question

不是的。listview用来显示文件图标的，和“我的电脑”里的一样

Answer 1

listview的图像列表中都要选中必要的包含一定图标的imagelist控件。
With ListView
    .ColumnHeaders.Clear
    .ColumnHeaders.Add(1).Icon = 1'对应的图标
    .ColumnHeaders.Item(1).Width = 400
    .ColumnHeaders.Add(2).Icon = 1
    .ColumnHeaders.Item(2).Width = 400
    .ColumnHeaders.Add , , "文件名", 3000
    .ColumnHeaders.Add , , "大小", 3000
    .ColumnHeaders.Add , , "注释", 3000
End With
然后添加记录时记得指明相应的图标。例如：
Set nodX = ListView.ListItems.Add(, , , , 1)
nodX.ListSubItems.Add , , , 2
nodX.SubItems(2) = 文件名

Answer 2

这是我以前的程序上的。
你需要添加一个listview,一个imagelist,imagelist中有图标

Answer 3

我试了一下，需要设置ListView.View = lvwReport，然后图标为合适的大小，比如程序中16X16比较好。
下面是程序。
Private Sub Form_Load()
With ListView
    .ColumnHeaders.Clear 'lvListView
    .ColumnHeaders.Add(1).Icon = 20
    .ColumnHeaders.Item(1).Width = 400
    .ColumnHeaders.Add(2).Icon = 1
    .ColumnHeaders.Item(2).Width = 400
    .ColumnHeaders.Add , , "作者", 1440
    .View = lvwReport
End WithDim nodX As ListItemSet nodX = ListView.ListItems.Add(, "test", , , 20)
    nodX.ListSubItems.Add , , , 3
    nodX.SubItems(2) = "作者"
Set nodX = Nothing
End Sub