🚀 go-pugleaf

"G. Sanna" <gavsan@tin.it> ha scritto nel messaggio
news:9KJoc.183169$hc5.7936624@news3.tin.it...
>
> "Vile_Corspe" <ciao.sonobus@aliceposta.it> ha scritto nel messaggio
> news:dbyoc.181555$hc5.7852534@news3.tin.it...
> > Scusate la domanda, forse banale, purtroppo non sono riuscito a
risolvere
> il
> > problema da solo.
> > Ho creato un semplice progetto che comprende una listbox e un command
> > button. Il cmd button serve per aggiungere elementi alla listbox.
> > Dopo aver aggiunto gli elementi, devo salvare per non perdere i dati
> > inseriti.
> >
> > private sub command1_click()
> >   list1.additem "ciao"
> >   list1.additem "sera"
> > end sub
> >
> >
> Se la richiesta � di salvare i dati sul disco fisso, una soluzione
> semplice potrebbe essere:
>
> Sub CaricaDati()
> Dim testo As String
> Form1.Combo1.Clear: 'azzera la combo1
> Open "Archivio.dat" For Input As #1: 'apri il file in modalit� testo
> sequenziale in lettura
> 10 If EOF(1) Then GoTo 20: 'se non ci sono altri dati da leggere chiudi il
> fie
> Line Input #1, testo: 'carica il testo
> Form1.Combo1.AddItem testo: 'aggiungi il testo sulla combo1
> GoTo 10
> 20 Close #1: 'chiudi il file
> Form1.Combo1.ListIndex = 0: 'posiziona la combo1 sulla prima registrazione
> End Sub
>
> Sub SalvaDati()
> Dim testo As String
> Open "Archivio.dat" For Output As #1: 'apri il file in modalit� testo
> sequenziale in scrittura
> For t = 0 To Form1.Combo1.ListCount - 1: 'leggi le righe di testo dalla
> combo1
> Form1.Combo1.ListIndex = t: 'imposta la riga della combo1
> testo = Form1.Combo1.Text: 'prendi il testo
> Print #1, testo: 'salva sul hard disk
> Next t
> Close #1: 'chiudi il file
> End Sub
>
> puoi copiare ed incollare il codice direttamente sulla sezione "generale
del
> programma"
>
> dopo di che richiamare sia il salvataggio, che il caricamento dei dati a
tuo
> piacimento
>
> buon lavoro
>
> G. Sanna
>
>

Oppure usa i database access ;-)