vb的listview默认不支持这种，应该怎么修改

[wanmeikakaxi]

vb的listview默认不支持这种

For i = 1 To 6
If Not ListView1.AddPicture(App.Path & "\icons\" & i & ".png") Then
End If
Next
For i = 1 To 6
With ListView1
lngItem = .AddItem(, "Item " & CStr(i), Int(Rnd() * 6))
.ItemText(lngItem, 1) = "Spalte 2"
.ItemText(lngItem, 2) = "Spalte 3"
End With
Next 

像这种读取显示的怎么写啊，
找了很久都没有这种示例的。

[苦寒]

你这不是VB6是VB.NET吧？？VB6里面的listview没有addpicture这样的方法