VB 6.0 da Registry_Bilgi_Okuma ve Yazma

[NBATMAN]

Vb 6.0 için;

Dim Okunacakbilgi
Okunacakbilgi = GetSetting("Comport", "Test", "Port")

SaveSetting "Comport", "Test", "Port", "Kayitedilecek Bilgi"



Yukar[FONT=ArialMT+2]ı[/FONT]daki kodlar[FONT=ArialMT+2]ı[/FONT]n aç[FONT=ArialMT+2]ı[/FONT]klamas[FONT=ArialMT+2]ı[/FONT]na geçmeden önce kay[FONT=ArialMT+2]ı[/FONT]t düzenleyicisi

hakk[FONT=ArialMT+2]ı[/FONT]nda baz[FONT=ArialMT+2]ı [/FONT]bilgilerin verilmesi gerekmektedir. Öncelikle “Ba[FONT=ArialMT+1]ş[/FONT]lat menüsü”

nden “Çal[FONT=ArialMT+2]ı[/FONT][FONT=ArialMT+1]ş[/FONT]t[FONT=ArialMT+2]ı[/FONT]r” [FONT=ArialMT+2]ı [/FONT]seçerek “Regedit” ‘i çal[FONT=ArialMT+2]ı[/FONT][FONT=ArialMT+1]ş[/FONT]t[FONT=ArialMT+2]ı[/FONT]rd[FONT=ArialMT+2]ı[/FONT][FONT=ArialMT+1]ğ[/FONT][FONT=ArialMT+2]ı[/FONT]n[FONT=ArialMT+2]ı[/FONT]zda kay[FONT=ArialMT+2]ı[/FONT]t düzenleyicisi ekrana
gelir. Ancak daha önce kay[FONT=ArialMT+2]ı[/FONT]t düzenleyicisini kullanmad[FONT=ArialMT+2]ı[/FONT]ysan[FONT=ArialMT+2]ı[/FONT]z burada i[FONT=ArialMT+1]ş[/FONT]lem
yapmaktan kaç[FONT=ArialMT+2]ı[/FONT]n[FONT=ArialMT+2]ı[/FONT]n. Çünkü herhangi bir veriyi silmeniz durumun ilgili program
yada windows çal[FONT=ArialMT+2]ı[/FONT][FONT=ArialMT+1]ş[/FONT]mayabilir. Genel bir anlat[FONT=ArialMT+2]ı[/FONT]mla kay[FONT=ArialMT+2]ı[/FONT]t düzenleyicisine yapt[FONT=ArialMT+2]ı[/FONT][FONT=ArialMT+1]ğ[/FONT][FONT=ArialMT+2]ı[/FONT]n[FONT=ArialMT+2]ı[/FONT]z
her kay[FONT=ArialMT+2]ı[/FONT]t i[FONT=ArialMT+1]ş[/FONT]lemi için adres, veri ad[FONT=ArialMT+2]ı [/FONT]ve veri belirtilmelidir. Visual Basic ile
yapt[FONT=ArialMT+2]ı[/FONT][FONT=ArialMT+1]ğ[/FONT][FONT=ArialMT+2]ı[/FONT]m[FONT=ArialMT+2]ı[/FONT]z kay[FONT=ArialMT+2]ı[/FONT]tlar[FONT=ArialMT+2]ı[/FONT]n adresi “HKEY_CURRENT_USER\software\vb and VBA
settings” olmaktad[FONT=ArialMT+2]ı[/FONT]r. Son “vb and VBA settings” klasörünün içine kendi klasör​

yada klasörlerimizi olu[FONT=ArialMT+1]ş[/FONT]turarak içlerine veri kayd[FONT=ArialMT+2]ı [/FONT]yapar[FONT=ArialMT+2]ı[/FONT]z.




“SaveSetting” komutu kullan[FONT=ArialMT+2]ılm[FONT=ArialMT+2]ı[/FONT][FONT=ArialMT+1]ş[/FONT]t[FONT=ArialMT+2]ı[/FONT]r. Bu komut yard[FONT=ArialMT+2]ı[/FONT]m[FONT=ArialMT+2]ı[/FONT]yla kay[FONT=ArialMT+2]ıt [/FONT]düzenleyicisine veri yazılır.[/FONT]​

SaveSetting "Comport", "Test", "Port", "Kayitedilecek Bilgi"
parametre_0,parametre_1,parametre_2,parametre_3,pa rametre_4

parametre_1: kayıt defterinde “HKEY_CURRENT_USER\software\vb and VBA settings” yolu altında Exemizin veya projemizin ismini taşıyan klasör.


parametre_2:Exemiz veya projemiz ismini taşıyan klasör altında açtığımız Alt klasörün ismi.

parametre_3:Exemiz veya projemiz ismini taşıyan klasör altında açtığımız Alt klasörün içine oluşturduğumuz ve verilerin tutulacağı(yazılcağı) değişken anahtar.
parametre_4:Exemiz veya projemiz ismini taşıyan klasör altında açtığımız Alt klasörün içine oluşturduğumuz ve verilerin tutulacağı(yazılcağı) değişken anahtar içine kayıt edilecek veri.​

“GetSetting” komutu kullan[FONT=ArialMT+2]ılm[FONT=ArialMT+2]ı​

[FONT=ArialMT+1]ş[/FONT]t[FONT=ArialMT+2]ı[/FONT]r. Bu komut yard[FONT=ArialMT+2]ı[/FONT]m[FONT=ArialMT+2]ı[/FONT]yla kay[FONT=ArialMT+2]ıt [/FONT]düzenleyicisinden veri okunur.[/FONT]


Okunacakbilgi = GetSetting("Comport", "Test", "Port")
Parametre_1,Parametre_0,Parametre_2,Parametre_3,Pa rametre_4 ​

parametre_1:Exemiz veya projemiz ismini taşıyan klasör altında açtığımız Alt klasörün içine oluşturduğumuz ve verilerin tutulduğu(yazıldığı) değişken anahtar içindeki kayıtın okunduktan sonra tutulacağı atanacağı değişken.



parametre_2: kayıt defterinde “HKEY_CURRENT_USER\software\vb and VBA settings” yolu altında Exemizin veya projemizin ismini taşıyan klasör.


parametre_3:Exemiz veya projemiz ismini taşıyan klasör altında açtığımız Alt klasörün ismi.

parametre_4:Exemiz veya projemiz ismini taşıyan klasör altında açtığımız Alt klasörün içine oluşturduğumuz ve verilerin tutulduğu(yazıldığı) değişken anahtar.

Uygulama:


Private Sub Command1_Click()'Veri Kaydetme​

SaveSetting "Comport", "Test", "Port", "Kayitedilecek Bilgi"
End Sub




Private Sub Command2_Click()'Veri Okuma

Dim Okunacakbilgi​

Okunacakbilgi = GetSetting("Comport", "Test", "Port")
Label1.Caption=Okunacakbilgi
End Sub​

[/FONT]