07-04-14, 03:00 PM
بصراحة لم أرى المثال أو الأدوات لكن ببساطة يمكن عمل ذلك بأداة ListView بهذا الكود:
PHP كود :
ListView1.LargeImageList = New ImageList() With {.ImageSize = New Size(200, 150), .ColorDepth = 32}
Dim imgExtensions As String() = {".jpg", ".jpeg", ".png", ".gif"}
Dim paths As String() = IO.Directory.GetFiles("Folder Path")
Array.ForEach(Of String)(paths, Sub(path As String) Array.ForEach(Of String)(imgExtensions, Sub(ext As String) If path.ToLower().EndsWith(ext) Then ListView1.LargeImageList.Images.Add(Image.FromFile(path))))
For i As Integer = 0 To ListView1.LargeImageList.Images.Count - 1
ListView1.Items.Add("", i)
Next