Listview
Hola,
Estoy intentado mostrar un icono en un control ListView, pero no aparece el icono.
El codigo es el siguiente: Puedes mirar que hago mal?
Me gustari que funcionase como una GRID.
Gracias por tu tiempo.
Dim clmx As ColumnHeader
Dim imgx As ListImage
Dim itmx As ListItem
Set clmx = ListView1.ColumnHeaders.Add(, , "Nom")
ListView1.View = lvwReport
Set imgx = ImageList1.ListImages.Add(, , LoadPicture("c:\a\note06.ico"))
Set imgx = ImageList2.ListImages.Add(, , LoadPicture("c:\a\w.bmp"))
ListView1.Icons = ImageList1
ListView1.SmallIcons = ImageList2
With Combo1
.AddItem "Icono"
.AddItem "Icono Pequeño"
.AddItem "Lista"
.AddItem "Informe"
.ListIndex = 0
End With
For i = 1 To 30
Set itmx = ListView1.ListItems.Add(, , CStr(i), 1)
Next
Estoy intentado mostrar un icono en un control ListView, pero no aparece el icono.
El codigo es el siguiente: Puedes mirar que hago mal?
Me gustari que funcionase como una GRID.
Gracias por tu tiempo.
Dim clmx As ColumnHeader
Dim imgx As ListImage
Dim itmx As ListItem
Set clmx = ListView1.ColumnHeaders.Add(, , "Nom")
ListView1.View = lvwReport
Set imgx = ImageList1.ListImages.Add(, , LoadPicture("c:\a\note06.ico"))
Set imgx = ImageList2.ListImages.Add(, , LoadPicture("c:\a\w.bmp"))
ListView1.Icons = ImageList1
ListView1.SmallIcons = ImageList2
With Combo1
.AddItem "Icono"
.AddItem "Icono Pequeño"
.AddItem "Lista"
.AddItem "Informe"
.ListIndex = 0
End With
For i = 1 To 30
Set itmx = ListView1.ListItems.Add(, , CStr(i), 1)
Next
1 respuesta
Respuesta de jtorres
1
Primero te aconsejo que lo hagas sober el objeto listview no en codigo, ahora si es necesriohacerlo en codigo encontré este error:
Dim clmx As ColumnHeader
Dim imgx As ListImage
Dim itmx As ListItem
' HASTA AKI BIEN
Set clmx = ListView1.ColumnHeaders.Add(, , "Nom")
ListView1.View = lvwReport
Set imgx = ImageList1.ListImages.Add(, , LoadPicture("c:\a\note06.ico"))
Set imgx = ImageList2.ListImages.Add(, , LoadPicture("c:\a\w.bmp"))
' FALTA LIGAR EL IMGX AL LISTVIEW!!!!
ListView1.Icons = ImageList1
ListView1.SmallIcons = ImageList2
With Combo1
.AddItem "Icono"
.AddItem "Icono Pequeño"
.AddItem "Lista"
.AddItem "Informe"
.ListIndex = 0
End With
For i = 1 To 30
Set itmx = ListView1.ListItems.Add(, , CStr(i), 1)
Next
Prueba haber sime algo...
Dim clmx As ColumnHeader
Dim imgx As ListImage
Dim itmx As ListItem
' HASTA AKI BIEN
Set clmx = ListView1.ColumnHeaders.Add(, , "Nom")
ListView1.View = lvwReport
Set imgx = ImageList1.ListImages.Add(, , LoadPicture("c:\a\note06.ico"))
Set imgx = ImageList2.ListImages.Add(, , LoadPicture("c:\a\w.bmp"))
' FALTA LIGAR EL IMGX AL LISTVIEW!!!!
ListView1.Icons = ImageList1
ListView1.SmallIcons = ImageList2
With Combo1
.AddItem "Icono"
.AddItem "Icono Pequeño"
.AddItem "Lista"
.AddItem "Informe"
.ListIndex = 0
End With
For i = 1 To 30
Set itmx = ListView1.ListItems.Add(, , CStr(i), 1)
Next
Prueba haber sime algo...
