Kayıt etme programı

not defterine kaydet

Kardeş yazdıklarını kayıt etme konusunda yardım edim.

Private sub formquery_unload()
savesetting app.exename,"Bölümadı","Kayıtadı",text1.text
end sub

burda uygulamanın adında "Bölümadı" yerine "Kayıtadı" şeklinde bir key oluşturuyo ve buraya text1 deki yazıyı yazıyor ve bunu program çıkışında yapıyor.

private sub form_load()
text1.text=getsetting (app.exename,"Bölümadı","Kayıtadı"
end sub

burdada o program çıkışında kaydettiğimiz keyi program açılışında text1 e aktarıyo bunlar yeter galiba sana

kafamdan yazdığım için bi hata çıkarsa sölersin.

analyzer var

Bromity' Alıntı:

analyzer var

Genişletmek için tıkla ...

O ney kardeş ?

yasin52200' Alıntı:

Kardeş yazdıklarını kayıt etme konusunda yardım edim.

Private sub formquery_unload()
savesetting app.exename,"Bölümadı","Kayıtadı",text1.text
end sub

burda uygulamanın adında "Bölümadı" yerine "Kayıtadı" şeklinde bir key oluşturuyo ve buraya text1 deki yazıyı yazıyor ve bunu program çıkışında yapıyor.

private sub form_load()
text1.text=getsetting (app.exename,"Bölümadı","Kayıtadı"
end sub

burdada o program çıkışında kaydettiğimiz keyi program açılışında text1 e aktarıyo bunlar yeter galiba sana

kafamdan yazdığım için bi hata çıkarsa sölersin.

Genişletmek için tıkla ...

hocam kusura bakma tam anlamadım ya açıkcası ben bunları nere kopyalayacam biraz daha ayrıntılı yaz san olurmu daha yeniyim ondan yani buton mu eklyecem text mi ekleyecem bunun gibi

yasin52200' Alıntı:

Kırmızı yazılanları forma kopyala yeter. bitanede text eklediğinde dediğim şey olur sen neyi kayıt ediceğini söylersen tam kod yazabilirim bunları örnek olarak yazdım.

Genişletmek için tıkla ...

hocam bakın ben şimdi dediklerinizi yaptım ve ikinci yazdığınız hata veriyor ben de tam olarak ne istiyorum onu söyleyim şimdi ben microsoft tabbed dialog control ekledim ve sekmelerimden birinde de bilgilerinizi kayıt etmek diye bir sekme yapmak istiyorum anlatabildim yani mesela ben oraya ne yazarsam butona tıkladım mı kayıt etsin ve sonra programa girdim mi yine göreyim o yazdıklarımı ve silme de olsun bunu istiyorum

Cevaplarınızı bekliyorum

Umarım şimdi anlamışsındır. Yine yapamazsan sölersin.

yasin52200' Alıntı:

Umarım şimdi anlamışsındır. Yine yapamazsan sölersin.

Genişletmek için tıkla ...

hocam bak tek tek resmin form ve kod olarak aynısı yazdım ve hata verdi kodlar bunlar değilmi


kodlar:

Private Sub Command1_Click() 'Command1 e tikladiginda
SaveSetting App.EXEName, "bölüm", "ad", Text1.Text ' text1 de yazilanlar "ad" kaydina kaydet
SaveSetting App.EXEName, "bölüm", "Soyad", Text1.Text ' text2 de yazilanlar "Soyad" Soyad kaydet
SaveSetting App.EXEName, "bölüm", "Sinıi", Text1.Text ' text3 de yazilanlar "Sinif" Sinif kaydet
SaveSetting App.EXEName, "bölüm", "Numara", Text1.Text ' text4 de yazilanlar "Numara" Numara kaydet
End Sub

Private Sub Command2_Click() 'Command2 ye tikladiginda
DeleteSetting App.EXEName, "bölüm", "ad" '"ad" kaydini sil
DeleteSetting App.EXEName, "bölüm", "soyad" '"soyad" kaydini sil
DeleteSetting App.EXEName, "bölüm", "sinif" '"sinif" kaydini sil
DeleteSetting App.EXEName, "bölüm", "numara" '"numara" kaydini sil
Text1.Text = "" 'text1 i bosalt
Text2.Text = "" 'text2 yi bosalt
Text3.Text = "" 'text3 ü bosalt
Text4.Text = "" 'text4 ü bosalt
End Sub

Private Sub Form_Load() 'Form yüklendiginde (program açildiginda)
Text1.Text = GetSetting(App.EXEName, "bölüm", "ad") '"ad" kaydini text1 e aktar
Text2.Text = GetSetting(App.EXEName, "bölüm", "soyad") '"soyad" kaydini text2 ye aktar
Text3.Text = GetSetting(App.EXEName, "bölüm", "sinif") '"sinif" kaydini text3 e aktar
Text4.Text = GetSetting(App.EXEName, "bölüm", "numara") '"numara" kaydini text4 e aktar
End Sub