[VB6] Problemi di stampa ListView

[LMondi]

In una LV ho tre colonne: Cognome; Nome; Sesso - non riesco a concludere il ciclo di stampa, in particolare per la riga Cognome, mi dà un errore di indice esaurito. Ho provato in tutte le salse ...
Mi date una mano ?
Grazie !

         For i = 0 To LvSearch.ListItems.Count
               Printer.Print Space(6) & "Cognome : " & LvSearch.ListItems(i).ListSubItems(0).Text
               Printer.Print Space(6) & "Nome : " & LvSearch.ListItems(i).ListSubItems(1).Text
               Printer.Print Space(6) & "Sesso : " & LvSearch.ListItems(i).ListSubItems(2).Text
               Printer.Print vbNewLine
         Next i
         Printer.EndDoc
      End If

[MdE2005]

Ciao..magari ha impostato te così il listview, ma in generale, a differenza di una ListBox, il primo indice di questo controllo è 1 e n non 0, quindi ti suggerirei di provare a scrivere:

for i = 1 to listview1.listitems.count

Fammi sapere..

ciao

[LMondi]

Ho sostituito, ma non funziona. Non mi dà il cognome (1^ colonna);

Printer.Print Space(6) & "Cognome : " & LvSearch.ListItems(i).ListSubItems(1).Text

ripete il Nome nel .ListSubItems(1).Text e .ListSubItems(2).Text al terzo evidenzia l'errore di indice esaurito.
In particolare in LvSearch.ListItems(i) mi segnala "Conflitto" ? VVoVe:

[MdE2005]

Ma perchè la prima colonna non la ricavi così:

msgbox ListView1.ListItems(i)

e poi per le altre due listview1.listitems(i).subitems(1) e listview1.listitems(i).subitems(2)

fammi sapere....


ciao

[oregon]

Non esiste il ListSubItems(0)

For i = 1 To LvSearch.ListItems.Count
    Printer.Print Space(6) & "Cognome : " & LvSearch.ListItems(i).Text
    Printer.Print Space(6) & "Nome : " & LvSearch.ListItems(i).ListSubItems(1).Text
    Printer.Print Space(6) & "Sesso : " & LvSearch.ListItems(i).ListSubItems(2).Text
    Printer.Print vbNewLine
Next i
Printer.EndDoc

[MdE2005]

For i = 1 To LvSearch.ListItems.Count
Printer.Print Space(6) & "Cognome : " & LvSearch.ListItem(i).Text
Printer.Print Space(6) & "Nome : " & LvSearch.ListItems(i).ListSubItems(1).Text
Printer.Print Space(6) & "Sesso : " & LvSearch.ListItems(i).ListSubItems(2).Text
Printer.Print vbNewLine
Next i
Printer.EndDoc

Alla prima riga puoi omettere l'espressione ".text", e cos' anche alle altre due purchè tu metta "lvsearch.listitems(i).subitems(1)"..

Cmq va bene, non a caso Oregon è un MVP.....

ciao ad entrambi

[LMondi]

Oregon, non sò come ringraziarti, attorno a questo problema ho perso delle ore.
Come facevo a vedere che ListSubItems(0) non esiste ? Sai tanto per capire, visto che ho girato tutta la guida in linea senza risultato.
Grazie anche a MdE2005, sempre molto gentile.

[oregon]

Beh, quando ho usato per la prima volta la Listview, ho studiato un po' il suo modello ad oggetti nella documentazione ... tutto qui.