Jo jag har nu listat bilder i en mapp med hjälp av ListView. Nu vill jag att det ska vara ikoner där av miniatyr av bilden i frågan. Har googlat i ca 30 min och sökt på pellesoft. Du måste koppla en imagelist till din listview. I din imagelist lägger du till bilderna.ListView fråga
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
Dim di As New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
Dim aryFi As IO.FileInfo() = di.GetFiles("*.jpg")
Dim fi As IO.FileInfo
For Each fi In aryFi
ListView1.Items.Add(fi.Name)
Next
End IfSv: ListView fråga
Koden för att lägga till listitems bör se ut ungefär såhär:
dim count as integer
For Each fi In aryFi
dim theimage as new image(fi.name)
theimagelist.images.add(count.tostring,theimage)
ListView1.Items.Add(fi.Name,count.tostring)
count=count+1
Next