SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: seba_m en Domingo 29 de Mayo de 2005, 21:49

Título: No Se Maneja Listview
Publicado por: seba_m en Domingo 29 de Mayo de 2005, 21:49
Hola nuevamente,.

Alguién podria enseñarme mediante un doc o pdf o lo que sea como usar al maximo el litview, ya que un am igo me paso un proyecto pero no lo entiendo./

Gracias
Título: Re: No Se Maneja Listview
Publicado por: toten en Lunes 30 de Mayo de 2005, 15:33
pana con este codigo creas los encabvezados.. incluso puedes crear una funcion que se llame asi y le colo cas el siguiente codigo y veras que le da el formato

ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
    With ListView1
        .View = lvwReport
        .GridLines = True
        .LabelEdit = lvwManual
        .ColumnHeaders.Add , , "Cod. Act."
        .ColumnHeaders.Add , , "Descripción", "7000"
        .ColumnHeaders.Add , , "Cod. Grupo"
        .ColumnHeaders.Add , , "Descripción del Grupo", "6000"
    End With

en el form load pon esto

ListView1.FullRowSelect = True
ListView1.HideSelection = True
ListView1.HotTracking = True
ListView1.StartLabelEdit
ListView1.TextBackground = lvwOpaque

luego para agregar haces esto

        Set tli = ListView1.ListItems.Add(, , "rs1!NUEVO")
        tli.SubItems(1) = "rs2!DescripciónActividad"
        tli.SubItems(2) = "rs3!Codigo_Grupo"
        tli.SubItems(3) = "rs3!grupo"

ah y en un modulo declaras la variable tli asi

Public tli As ListItem

eso es lo basico espero que te sirva
Título: Re: No Se Maneja Listview
Publicado por: seba_m en Lunes 30 de Mayo de 2005, 16:11
Gracias, ahora como seria implementando sentencias sql,
Título: Re: No Se Maneja Listview
Publicado por: toten en Lunes 30 de Mayo de 2005, 16:31
tas pidiendo mucho para el tiempo que nos conocemos men


donde estan las cosas que sale texto mwetele los campos que te trae la senterncia sql

Set tli = ListView1.ListItems.Add(, , "rs1!NUEVO")
tli.SubItems(1) = "rs2!DescripciónActividad"
tli.SubItems(2) = "rs3!Codigo_Grupo"
tli.SubItems(3) = "rs3!grupo"
Título: Re: No Se Maneja Listview
Publicado por: toten en Lunes 30 de Mayo de 2005, 16:54
dee hecho pana esos que estan ay son campos que traigo de la base de dados por ado


cuidate y estamos pendientes

:hola:
 B)
Título: Re: No Se Maneja Listview
Publicado por: seba_m en Viernes 3 de Junio de 2005, 23:45
Desde ya te agradezco, y disulpame, tienes razon
Título: Re: No Se Maneja Listview
Publicado por: toten en Lunes 6 de Junio de 2005, 16:44
no vale mi pana tranquilo yo estoy aqui para ayudar en lo que pueda sabes solo lo dije por decirlo aqui estamos para ayudarnos men cualquier cosa estamos a la orden
Título: Re: No Se Maneja Listview
Publicado por: seba_m en Lunes 6 de Junio de 2005, 16:52
Gracias,
Título: Re: No Se Maneja Listview
Publicado por: seba_m en Martes 7 de Junio de 2005, 04:16
Buenas, anuncio que no he podido implementar el codigo con la SQL,
se que es mucho pedir pero me podrian enviar un proyecto de vb con este codigo.

seba_m@net-2.com.ar

MIL GRACIAS Y PERDO POR LA INSISTENCIA
Título: Re: No Se Maneja Listview
Publicado por: toten en Martes 7 de Junio de 2005, 14:41
si pana como no.. vamos a hacer algo mandame tu proyecto y tu base de datos y yo te hago la adaptacion del listview mi correo esw yosoyfalo@hotmail.com si tienes msn mejor men
Título: Re: No Se Maneja Listview
Publicado por: gabperez en Martes 21 de Junio de 2005, 20:11
Hola!
Estuve siguiendo el hilo de la cuestión porque tengo un problema similar. Solo que lo que quiero mostrar en el listview son imágenes que tengo que un imagelist (o algo así)
Así que si alguien tiene un código de ejemplo que me pueda pasar o una ayudita se lo agradeceré.
Saludos!
Título: Re: No Se Maneja Listview
Publicado por: toten en Martes 21 de Junio de 2005, 20:26
mi pana yo tratare de ayudarlo lo que pasa es que ese codigo no lo tengo en la oficina men pero si se como hacerlo
Título: Re: No Se Maneja Listview
Publicado por: Shiquilla en Miércoles 22 de Junio de 2005, 10:55
gabperez, para insertar imágenes, en las propiedades de la ListView, asigna como lista de imágenes tu ImageList (para hacer esto, pulsa botón derecho encima de la ListView y dale a propiedades).

Para insertar imágenes en una ListView hay dos formas:

1. Si lo quieres en la primera columna:

Código: Text
  1.     Dim loItem As ListItem
  2.     lsvLista.ListItems.Clear
  3.     Set loItem = lsvLista.ListItems.Add
  4.     loItem.Text = "Prueba"
  5.     loItem.SubItems(1) = "De ListView"
  6.     loItem.SmallIcon = "pausa" 'Nombre de la imagen de la ImageList
  7.     loItem.Selected = False
  8.  

2. Si la imagen la quieres insertar dentro de la lista pero en otra columna que no sea la primera:

Código: Text
  1.     Dim loItem As ListItem
  2.     lsvLista.ListItems.Clear
  3.     Set loItem = lsvLista.ListItems.Add
  4.     loItem.Text = "Prueba"
  5.     loItem.SubItems(1) = "De ListView"
  6.     loItem.ListSubItems(1).ReportIcon = "pausa" 'Nombre de la imagen de la ImageList
  7.     loItem.Selected = False
  8.  

Saludos,