Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto recupero elementi da una listbox

Salve, ho un form con diverse textbox ed un controllo listview
composto di 2 colonne.
Nel mio codice alla pressione di un pulsante aggiungo alla listview i
contenuti di alcune delle textbox del form. Fatto questo vorrei
recuperare i valori contenuto nella listview e scriverli su di un file
di testo. Ad esempio, nel codice che segue riesco tranquillamente ad
inserire il valore nella listview ma il file di testo non mi viene
scritto :(
Set li = frmmassdownloader.ListView1.ListItems.Add(, ,
Left(frmmassdownloader.txtnomefile.Text, lungnomefile) & "00")
        li.ListSubItems.Add , , frmmassdownloader.txtind.Text & ":" &
frmmassdownloader.txtport.Text & frmmassdownloader.txtpath.Text &
Left(frmmassdownloader.txtnomefile.Text, lungnomefile) & "00"
Open "C:\Programmi\Mass Downloader\MassDown.dat" For Append As #fnum
Print #fnum, "[Object]"
Print #fnum, "URL=" &
frmmassdownloader.ListView1.ListItems(1).ListSubItems(2).Text
Print #fnum, "Comment=" &
frmmassdownloader.ListView1.ListItems(1).ListSubItems(2).Text
Print #fnum, "FName=" &
frmmassdownloader.ListView1.ListItems(1).ListSubItems(1).Text
Print #fnum, "FFolder=" & frmmassdownloader.txtdest.Text
Print #fnum, "Threads=" & frmmassdownloader.txtthread.Text
close #fnum
Se invece scrivo il file di testo partendo dal contenuto delle
textbox, come nel codice che segue, funziona alla grande ed il file
viene scritto:
Set li = frmmassdownloader.ListView1.ListItems.Add(, ,
Left(frmmassdownloader.txtnomefile.Text, lungnomefile) & "00")
        li.ListSubItems.Add , , frmmassdownloader.txtind.Text & ":" &
frmmassdownloader.txtport.Text & frmmassdownloader.txtpath.Text &
Left(frmmassdownloader.txtnomefile.Text, lungnomefile) & "00"
Print #fnum, "[Object]"
Print #fnum, "URL=" & frmmassdownloader.txtind.Text & ":" &
frmmassdownloader.txtport.Text & frmmassdownloader.txtpath.Text &
Left(frmmassdownloader.txtnomefile.Text, lungnomefile) & "0" & i
Print #fnum, "Comment=" & frmmassdownloader.txtind.Text & ":" &
frmmassdownloader.txtport.Text & frmmassdownloader.txtpath.Text &
Left(frmmassdownloader.txtnomefile.Text, lungnomefile) & "0" & i
Print #fnum, "FName=" & Left(frmmassdownloader.txtnomefile.Text,
lungnomefile) & "00"
Print #fnum, "FFolder=" & frmmassdownloader.txtdest.Text
Print #fnum, "Threads=" & frmmassdownloader.txtthread.Text
Close #fnum
Come mai non riesco a recuperare il valore dalla listview ed a
scriverlo sul file di testo. 
Esiste un bel ciclo che mi permette di recuperare i valori da una
listview e a scriverli in un file di testo?
Grazie e ciao

 scritto :(
Ciao,
la cosa mi sembra molto strana. ho fatto alcune prove e tutto funziona.
Molto strano che tu non possa leggere il contenuto del subitem
Hai provato a mettere dei break, per vedere se veramente ti restituisce
stringa vuota?
Controlla anche che il valore sia inserito nel sub item ad esempio fai una
sub che riempe il listview e basta.
Controlla a questo punto che nel listview sia tutto visibile.
Io ad esempio per inserire i valori ho fatto:
    Dim Riga As ListItem
            Set Riga = lvListView.ListItems.Add(iIndex, ,
IIf(IsNull(oDato.Codice), "", oDato.Codice))
            Riga.SubItems(1) = IIf(IsNull(oDato.Marca), "", oDato.Marca)
            Riga.SubItems(2) = IIf(IsNull(oDato.Articolo), "",
oDato.Articolo)
            Riga.SubItems(3) = IIf(IsNull(oDato.Descrizione), "",
oDato.Descrizione)
            Riga.SubItems(4) = IIf(IsNull(oDato.Iva), "0", CSng(oDato.Iva))
In questa maniere non mi da problemi.
ciao fammi sapere