como se inserta una nueva linea en un listviewctrl?
No se exactamente el codigo que tengo que poner, algo asi como
ListViewCtrl1.ListItems.Add
pero no se como tengo que seguir. Gracias.
ListViewCtrl1.ListItems.Add
pero no se como tengo que seguir. Gracias.
Listview.LisItems.Add [Index],[key],[text],[icon],[smallicon]
ListView1.ListItems.Add 1, "Prueba", "Prueba",1,2
Los Icon y SmallIcon deben estar en un imagelist y ningun campo es obligatorio
ListView1.ListItems.Add 1, "Prueba", "Prueba",1,2
Los Icon y SmallIcon deben estar en un imagelist y ningun campo es obligatorio
hola, supuniendo que tus datos los sacas de un recordser..(solo es un ejemplo)
el codigo seria mas o menos asi:
sub LlemarListview()
dim Li as listitem
....
aqui tu conexion y consulta al recordset
....
set li=listview1.listitem.additem (,,rs!clave) ''' por ejemplo
esto inserta un renglon, pero si qieres que tenga subitems seguiria esto
li.subitem(1)=rs!descripcion
li.subitem(2)=rs!algo
esto te daria algo asi:
clave descripcion algo
1001 nada por ahora lo que quieras
ahora si tu recordset devuelve unos 10 reultados
while not rs.eof
set li=listview1.listitem.add (,,rs!clave)
li.subitem(1)=rs!descripcion
li.subitem(2)=rs!algo
rs.movenext
wend
bueno, espero te sirva de algo
el codigo seria mas o menos asi:
sub LlemarListview()
dim Li as listitem
....
aqui tu conexion y consulta al recordset
....
set li=listview1.listitem.additem (,,rs!clave) ''' por ejemplo
esto inserta un renglon, pero si qieres que tenga subitems seguiria esto
li.subitem(1)=rs!descripcion
li.subitem(2)=rs!algo
esto te daria algo asi:
clave descripcion algo
1001 nada por ahora lo que quieras
ahora si tu recordset devuelve unos 10 reultados
while not rs.eof
set li=listview1.listitem.add (,,rs!clave)
li.subitem(1)=rs!descripcion
li.subitem(2)=rs!algo
rs.movenext
wend
bueno, espero te sirva de algo
