Cargar imagen a un Listview Hola muchachos como estan,
les escribo para ver si alguno me puede ayudar con esto:
Estoy creando mi propio explorador de Windows y para eso estoy listando carpetas en un listview, dependiendo de la unidad seleccionada. Pero ademas me gustaria agregarle la imagen de la carpetita al Listview, vieron como cuando abren una ventana en windows y ven los iconitos de las carpetitas?? bueno, lo mismo. Ahora no se como hacerlo. Estuve leyendo y agrege un imagelist a mi proyecto con la imagen que quiero agregar, y segun la documentacion que tengo eso deberia bastar.....pero no funciona. Les dejo algo de codigo por si alguno lo quiere revisar
Con esta funcion cargo el ListView pero no muestro ni Mis Imagenes, Mi Musica ni Mis Videos
lvPantalla = Listview
frmMain = Formulario principal
Public Sub LlenarPantalla(ByVal Unidad As String)
Dim Carpetas() As String
Dim Carpeta As String
Dim InfoCarpeta As DirectoryInfo
Dim Item As ListViewItem
With frmMain
.lvPantalla.View = View.LargeIcon
.lvPantalla.Items.Clear()
End With
Try
Carpetas = Directory.GetDirectories(Unidad)
For Each Carpeta In Carpetas
InfoCarpeta = New DirectoryInfo(Carpeta)
Item = New ListViewItem(InfoCarpeta.Name)
Select Case InfoCarpeta.Name
Case "Mi música"
Case "Mis imágenes"
Case "Mis vídeos"
Case Else
frmMain.lvPantalla.Items.Add(InfoCarpeta.Name)
Item.StateImageIndex = 0
End Select
Next
Directory.SetCurrentDirectory(Unidad)
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "Dinder Explorer")
End Try
Gracias por su tiempo.
Saludos
