zOnG Δημοσ. 11 Φεβρουαρίου 2001 Δημοσ. 11 Φεβρουαρίου 2001 Μήπως ξέρει κανείς πώς μπορώ να σώσω να δεδομένα που υπάρχουν σε διάφορα αντικείμενα (πχ text boxes,list boxes κτλ) σε κάποιο αρχείο στον δίσκο μου;Μετά πώς μπορώ να επαναφέρω τα δεδομένα αυτά;
ULTRA Δημοσ. 12 Φεβρουαρίου 2001 Δημοσ. 12 Φεβρουαρίου 2001 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 Δημοσ. 12 Φεβρουαρίου 2001 Μέλος Δημοσ. 12 Φεβρουαρίου 2001 Σε ευχαριστώ πολύ φίλε...Κατάλαβα τον κώδικα.Έχω μια ερώτηση.Τα παραπάνω μπορώ να τα κάνω με όλα τα αντικείμενα (ή τα περισσότερα) ή μόνο με τα text boxes;
ULTRA Δημοσ. 12 Φεβρουαρίου 2001 Δημοσ. 12 Φεβρουαρίου 2001 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 Δημοσ. 27 Αυγούστου 2001 Δημοσ. 27 Αυγούστου 2001 BEbea mporei na xosei kai mia procedure i opoia na elenxei an sto load yparxei to arxeio aut0
Προτεινόμενες αναρτήσεις
Αρχειοθετημένο
Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.