Duda con el ListView Columnas y eso?¿

[Brian1511]

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!:

Código [Seleccionar] Expandir

 

'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:

Código [Seleccionar] Expandir



'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/

significa online


y esta :

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 !!!!!

[MCKSys Argentina]

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.

Código [Seleccionar] Expandir


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


[Brian1511]

Muchas gracias amigo ya lo pruebo y te digo si me sirvio ,

Gracias..

Saludos