hola mi querido copachay, mejor te mando el codigo para evitar confuciones:
Private Sub Form_Load()
Dim nodo As ListItem
Set nodo = ListView1.ListItems.Add(, , "hola")
nodo.SubItems(1) = "esto"
End Sub
te explico:
nodo es un objeto de la clase ListItem, esta clase se encarga de los demas campos desde el segundo hasta el final del listview, lo defines para que puedas llenar dichos campos;
para que agregues campos en tiempo de diseño tienes que irte a la propeidad personalizado del control ListView, alli puedes encontrar la propiedad "numitems" para que agregues mas campos y ac cada uno le pones un titulo y un index, luego con respecto a la vista de datos, tienes que modificar la opcion "view" quien te dice de que manera te mostrará los items, para que te des cuenta de lo que hablo puedes abrir el explorador de windows y jugar con las distintas vistas con las que te puede mostrar los datos (menos la de Vista en miniatura y vista de tira de imagenes que esa no te la brinda); en tu caso te conviene usar la vista 3, la de reportes, lo que en el explorador de windows tiene el nombre de "vista de detalles". con esta instruccion:
ListView1.ListItems.Add(, , "hola")
lo que haces es agregar un nuevo elemento a la lista, y ese elemento le pasas al objeto "nodo", quien se encargará de agregar los datos a los demas campos. en este caso solo tienes dos campos, el primer campo no es tomado en cuenta por el objetonodo, ya que este es tratado directamente por el control, el objeto enumerará los campos desde el segundo enumerandolos enorden a partir del 1; es por eso que para llenar un texto en el segundo campo lo llamo poneindo:
nodo.subitems(1)="esto"
, y listo eso es todo si necesitas mas ayuda puedes visitar
www.elguruprogramador.com.ar
