For i = 1 To 6
If Not ListView1.AddPicture(App.Path & "\icons\" & i & ".png") Then
End If
Next
For i = 1 To 100
With ListView1
lngItem = .AddItem(, "Item " & CStr(i), Int(Rnd() * 6))
.ItemText(lngItem, 1) = "Spalte 2"
.ItemText(lngItem, 2) = "Spalte 3"
End With
Next
If Not ListView1.AddPicture(App.Path & "\icons\" & i & ".png") Then
End If
Next
For i = 1 To 100
With ListView1
lngItem = .AddItem(, "Item " & CStr(i), Int(Rnd() * 6))
.ItemText(lngItem, 1) = "Spalte 2"
.ItemText(lngItem, 2) = "Spalte 3"
End With
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货