[I] [COLOR="DarkOrange"]Private Sub Command1_Click()
Open "deneme.dat" For Output As #1
Write #1, Text1.Text
Write #1, Text2.Text
Write #1, Text3.Text
Close #1
End Sub
Private Sub Form_Load()
Open "deneme.dat" For Binary As #1
Close #1
Open "deneme.dat" For Input As #1
If LOF(1) = 0 Then GoTo sona
Input #1, a
Input #1, b
Input #1, c
sona:
Close #1
Text1.Text = a
Text2.Text = b
Text3.Text = c
End Sub
Kodun çalışma mantığı şu :
İlk olarak açıldığında "deneme.dat" isimli dosyayı açıyor eğer yoksa yaratıyor.
Daha sonra textboxa girilen bilgileri commandbuttona basıldığında "deneme.dat" dosyasına kayıt ediyor ve program tekrar açıldığında dosyadaki bilgiyi okuyup textboxları dolduruyor.
Herkese iyi çalışmalar.[/I]
BEDAVA MILYONLARCA LİSELI GENÇ KIZ MSN ADRESI.!!!
- Konular -
|
