ciao, mettiamo il caso abbia due text box sul tuo form: nome e cognome. Inoltre hai un file dove andra a salvare le informazioni.
Nella load del programma andrai a leggere il file.
Private sub Form1_Load()
dim c() as string
dim a as string
open "nomedelfile" for input as #1
while not eof(1)
line input #1,a
c = split(a, " ")
wend
close #1
if a <>"" then
nome.text = c(0)
cognome.text = c(1)
End if 'oppure gli dici di essere uguali a ""
End sub
Mentre i dati li andrai a salvare in questo modo
Privat5e Command1_click()
open "nomedelfile" for output as #1
Print nome.text & " " & cognome.text
close #1
End sub
cosi dovrebbe funzionare. non lo testato, cmq dovrebbe andare.
Ciao.
Ultima modifica effettuata da Overflow il 14/02/2008 alle 14:58 |