Visual Basic 6:Save\Load

[zOnG]

Μήπως ξέρει κανείς πώς μπορώ να σώσω να δεδομένα που υπάρχουν σε διάφορα αντικείμενα (πχ text boxes,list boxes κτλ) σε κάποιο αρχείο στον δίσκο μου;Μετά πώς μπορώ να επαναφέρω τα δεδομένα αυτά;

[ULTRA]

molis kano to format tha sou po..

[ULTRA]

as poume oti exeis ena text box,grafeis ekei to onoma sou kai exeis dipla to koumpi save (to opoio tha kanei save to onoma sou se ena arxeio)<P><BR><IMG SRC="http://users.otenet.gr/~manessis/a.BMP" border=0><P>pes oti grafeis mesa sto textbox,kostas<P>to kostas tora tha prepei na to apothikeusoume<P>------------------------------<BR>-save|<BR>to periexomeno tou text1 box (oti grafeis diladi) einai to text1.text<P>ftiaxce opos deixnei i foto,ena koumpi dipla (p.x. na leei save)<BR>mesa sto save tha grapsoume tis edoles oi opoies tha kanoun afto pou thes<P>Private Sub Command1_Click() ' to exei etoimo afto<BR>open "c:\a.dat" for output as #1 'dimiourgei to arxeio a.dat(an den iparxei idi)<BR>write #1,text1.text<BR>close 'kleinei to arxeio<BR>End Sub ' to exei etoimo afto<P>(ama thes,anoixce to a.dat,tha exei mesa tou to "kostas" (exei eisagogika giati einai kanonika einai keimeno)<BR>-------------------------------<BR>-load|<BR>/ftiaxce ena allo koumpi kato apo to save pou na leei xcero go load<BR>/ftiaxce ena label dipla xcero go sto koumpi load (tha fenetai to apotelesma se aftin)<P><IMG SRC="http://users.otenet.gr/~manessis/b.BMP" border=0> <BR>mesa sto koumpi load tha prepei na grapsoume aftes tis edoles:<P>Private Sub Command2_Click() ' to exei idi afto<BR>Open "c:\a.dat" For Input As #1 ' ama den iparxei to arxeio tha mplokarei<BR>Input #1, k 'diavazei to onoma (stin sigekrim. per. einai to kostas_<BR>Close 'kleinei to arxeio<BR>Label1.Caption = k 'label1.caption = i endixci tou label1<P>End Sub 'iparxei idi<P>------<BR>ama den katalavaineis kati i' tipota (den grafo kai poli kala) pes to <P><p>[This message has been edited by ultra (edited 11-02-2001).]

[zOnG]

Σε ευχαριστώ πολύ φίλε...Κατάλαβα τον κώδικα.Έχω μια ερώτηση.Τα παραπάνω μπορώ να τα κάνω με όλα τα αντικείμενα (ή τα περισσότερα) ή μόνο με τα text boxes;

[ULTRA]

nai vevaia ta parapano,mporeis na ta kaneis kai me to listbox i' me ena msgbox xcero go (se osa vazeis dedomena diladi) p.x.<BR>adi gia text1.text mporeis na exeis List1.Text (i' true-false(kai oxi kapoia lexci) an exeis ena option button i' checkbox)

[tgalanopoulos]

BEbea mporei na xosei kai mia procedure i opoia na elenxei an sto load yparxei to arxeio aut0