[selami_32]

formuna listview, filelist, imagelist, image kontrolu ekle

Dim klasor

Private Sub Form_Load()
    klasor = "c:\belgelerim\resimlerim"
    File1 = klasor
    File1.Pattern = "*.jpg;*.bmp"
    File1.Visible = False
    ImageList1.ImageHeight = 64
    ImageList1.ImageWidth = 64
    ImageList1.UseMaskColor = False
    Image1.Stretch = True
yukle

End Sub


Sub yukle()
On Error Resume Next

For i = 1 To ImageList1.ListImages.Count
    ImageList1.ListImages.Remove i
Next i

For i = 1 To File1.ListCount - 1
    ImageList1.ListImages.Add i, File1.List(i), LoadPicture(klasor + "\" + File1.List(i))
    ListView1.ListItems.Add i, , File1.List(i), i, i
Next i

End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Image1.Picture = LoadPicture(klasor + "\" + Item.Text)
End Sub

ama çok yavaş, listview pekiyi göstermiyor resimleri

saygılar.