Thumbnail en ListView

Iniciado por okik, 4 Noviembre 2016, 18:20 PM

0 Miembros y 1 Visitante están viendo este tema.

okik

hola, estoy tratando de mostrar las imágenes del directorio de temporales de Internet en un ListView pero no se ven.

Código (vbnet) [Seleccionar]

       Dim lstImages As New ImageList()
       lstViewJPG.Items.Clear()
       lstViewJPG.LargeImageList = lstImages
       lstViewJPG.View = View.LargeIcon

       Dim strCacheDir As String = CStr(Environment.GetFolderPath(Environment.SpecialFolder.InternetCache))
       Dim strFiles As IEnumerable = Directory.EnumerateFiles(strCacheDir, "*", SearchOption.AllDirectories)
       For Each strFileName As String In strFiles
           Select Case Path.GetExtension(strFileName)
               Case ".jpg"

                   Try

                       Dim Imagen As Image = Image.FromFile(strFileName)
                       lstImages.ImageSize = New Size(CInt((Imagen.Width * 50) / Imagen.Height), 50)
                       lstImages.Images.Add(Path.GetFileName(CStr(strFileName)), Imagen)
                       lstViewJPG.Items.Add(Path.GetFileName(CStr(strFileName)), Path.GetFileName(CStr(strFileName)))
                       Imagen.Dispose()
                   Catch ex As Exception
                       lstImages.ImageSize = New Size(CInt(50), 50)
                   End Try
           End Select

       Next


falta iconos, png, y bmp. El ejemplo es solo para archivos jpg.

Además me gustaría que la imagen fuera proporcional  a la imagen original. cuando lo intento me da error.

gracias