Imprimir Página - Duda con el ListView Columnas y eso?¿

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:

   

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


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

Código:

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Brian1511 en 18 Diciembre 2012, 02:50 am