Tomar Datos De Listiview

[romanriquelme]

Hola. Tengo en un form un listview con varios datos y quiero hacer que al presionar un commandbutton se tomen todos los datos que hay en el listview no solo el seleccionado... he intentado de la siguiente manera pero no pude...

Código:

Private Sub Command1_Click()
dim a as string
For a = 1 to ListView1.ListItems.Count
text1.text = ListView1.ListItems.Item(a).Text
text2.text = ListView1.ListItems.Item(a).Subitems(1)
Next a
End Sub

Pero lo que hace es tomarme solo el ultimo dato del ListView...
Como puedo tomar todos los datos y transportarlos al text1 y text2??
Los campos del listview son para nombre y apellido..

eso solo una prueba para ver como hacerlo, necesito una manito.

[pkj]

El fallo que tienes es que sobreescribes continuamente los textbox sin guardar el texto anterior.

Debería ser algo como:

Código vb:

Private Sub Command1_Click()
  dim a as string
  For a = 1 to ListView1.ListItems.Count
    text1.text = text1.text & vbCrLf & ListView1.ListItems.Item(a).Text
    text2.text = text2.text & vbCrLf & ListView1.ListItems.Item(a).Subitems(1)
  Next a
End Sub
 

[romanriquelme]

aaaa ya jejeje que error tan tonto pero si no me hubieras dicho no me daba cuents mas jeje.
gracias