🚀 go-pugleaf

"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