Programación General > VBA

 No Se Maneja Listview

(1/3) > >>

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

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

seba_m:
Gracias, ahora como seria implementando sentencias sql,

toten:
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"

toten:
dee hecho pana esos que estan ay son campos que traigo de la base de dados por ado


cuidate y estamos pendientes

:hola:
 B)

Navegación

[0] Índice de Mensajes

[#] Página Siguiente