Hola amigo , bueno como ya dice en el titulo pues necesito saber como hacer eso y no necesito el manuel por que ya lo lei y no me ayudo en nada
Loq ue quiero sabes es como agregar imagenes en un item del listview ya se como agregar y borrar un item .
Este es el code que uso para agregar en item!:
'Crea las Columnas
'Variable para el Item del ListView
Dim Item As ListItem
With ListView1
' Agrega dos columnas
.ColumnHeaders.Add , , " NOMBRE "
.ColumnHeaders.Add , , "APELLIDO"
.ColumnHeaders.Add , , "# DE TEL"
' Vista de reporte
.View = lvwReport
.GridLines = True
'********************************************
'Crea los Items
Set Item = .ListItems.Add(, , "Carlos")
'SubITem (Apellido)
Item.SubItems(1) = "Quezada"
'SubITem (Apellido)
Item.SubItems(2) = "0654134496"
y este es para borrarlo:
'Borra un item de la lista
ListView1.ListItems.Remove (1)
Ahora bien tengo un ImageList y quisiera saber como agregar esa imagen a un cosatado del list view :
Ejemplo:
Tengo esta imagen :
http://imageshack.us/photo/my-images/593/packageinstalled.gif/ (http://imageshack.us/photo/my-images/593/packageinstalled.gif/)
significa online
y esta :
http://imageshack.us/photo/my-images/254/packageold.gif/ (http://imageshack.us/photo/my-images/254/packageold.gif/)
significa offline..
como ago esto espero que me ayuden ..
PD: es mas o menos como lo que hace el juego de DarkOnMatix cuando alguien se conecta y aparece una imagen - significando que esta en linea y su nombre ..
Ayuda pofa !!!!!
Suponiendo lo siguiente:
LV1 = ListView
ImageList1 = ImageList (con las 2 imagenes dadas)
El siguiente código asocia un imageList al ListView, le agrega 1 item al listView (en el Form_Load), indicando que el icono a mostrar es el primero de la lista.
Despues se define el evento ItemClick del ListView para que el elemento cambie la imagen al hacerle click.
Private Sub Form_Load()
Set LV1.Icons = ImageList1
LV1.ListItems.Add 1, "it1", "Primer Item del ListView", 1
End Sub
Private Sub LV1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If Item.Icon = 1 Then
Item.Icon = 2
Else
Item.Icon = 1
End If
End Sub
Muchas gracias amigo ya lo pruebo y te digo si me sirvio :D ,
Gracias..
Saludos