如何在ListView第二列中加入图标

Question

如题!

Answer 1

添加一个IamageList控件,图标添加完成后,修改下面的索引即可Private Sub Form_Load()
            Call Init_Lvw
End SubPrivate Sub Init_Lvw()
            With Me.lvw
                .View = lvwList
                .LabelEdit = lvwManual
            End With
            With Me.lvw.ListItems
                .Add 1, , "测试", 图片索引
            End With
End Sub

Answer 2

Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.Icons = ImageList1
ListView1.SmallIcons = ImageList1
ListView1.ColumnHeaderIcons = ImageList1
For I = 1 To 5
ListView1.ColumnHeaders.Add , , "第" & I & "列", , , I
Next
For I = 1 To 5
ListView1.ListItems.Add , , "第" & I & "行", I, I
For j = 1 To 5
ListView1.ListItems(I).ListSubItems.Add , , "第" & j + 1 & "列", j
Next
Next
End Sub

Answer 3

AisaC 的方法我没用,估计行得通.我用了SYSSZ的方法,他的方法调试通过,不过还是非常感谢AisaC,只有20分,一人10分,少了点,不要嫌少哟