Vb 6.0 icin;

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

SaveSetting "Comport", "PrinterTest", "Port", "Kayitedilecek Bilgi"



Yukar
ıdaki kodların acıklamasına gecmeden once kayıt duzenleyicisi

hakkında bazı bilgilerin verilmesi gerekmektedir. Oncelikle “Başlat menusu”
nden “Calıştır” ı secerek “Regedit” ‘i calıştırdığınızda kayıt duzenleyicisi ekrana
gelir. Ancak daha once kayıt duzenleyicisini kullanmadıysanız burada işlem
yapmaktan kacının. Cunku herhangi bir veriyi silmeniz durumun ilgili program
yada windows calışmayabilir. Genel bir anlatımla kayıt duzenleyicisine yaptığınız
her kayıt işlemi icin adres, veri adı ve veri belirtilmelidir. Visual Basic ile
yaptığımız kayıtların adresi “HKEY_CURRENT_USER\software\vb and VBA
settings” olmaktadır. Son “vb and VBA settings” klasorunun icine kendi klasor


yada klasorlerimizi oluşturarak iclerine veri kaydı yaparız.




“SaveSetting” komutu kullanılmıştır. Bu komut yardımıyla kayıt duzenleyicisine veri yazılır.



SaveSetting "Comport", "PrinterTest", "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 klasor.


parametre_2:Exemiz veya projemiz ismini taşıyan klasor altında actığımız Alt klasorun ismi.
parametre_3:Exemiz veya projemiz ismini taşıyan klasor altında actığımız Alt klasorun icine oluşturduğumuz ve verilerin tutulacağı(yazılcağı) değişken anahtar.
parametre_4:Exemiz veya projemiz ismini taşıyan klasor altında actığımız Alt klasorun icine oluşturduğumuz ve verilerin tutulacağı(yazılcağı) değişken anahtar icine kayıt edilecek veri.




“GetSetting” komutu kullanılmıştır. Bu komut yardımıyla kayıt duzenleyicisinden veri okunur.


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




parametre_1:Exemiz veya projemiz ismini taşıyan klasor altında actığımız Alt klasorun icine oluşturduğumuz ve verilerin tutulduğu(yazıldığı) değişken anahtar icindeki 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 klasor.


parametre_3:Exemiz veya projemiz ismini taşıyan klasor altında actığımız Alt klasorun ismi.

parametre_4:Exemiz veya projemiz ismini taşıyan klasor altında actığımız Alt klasorun icine oluşturduğumuz ve verilerin tutulduğu(yazıldığı) değişken anahtar.

Uygulama:


Private Sub Command1_Click()'Veri Kaydetme


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




Private Sub Command2_Click()'Veri Okuma
Dim Okunacakbilgi


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

__________________