Autor: Samir Gutić
Pročitano: 3599 puta

HKEY_CURRENT_USER registry ključVrlo često je, za Visual Basic program, potrebno sačuvati odgovarajuće korisničke postavke.

Te postavke je moguće sačuvati u Widows registry bazu u odgovarajuće ključeve.  Upis u registry, ali samo na putanju HKEY_CURRENT_USER\Software\VB and VBA Program Settings\, vrši se pomoću funkcije:

SaveSetting appname:="SubKey1", Section:=" SubKey2", Key:="Value", setting:="Broj"

Gdje je :

            SubKey1prvi ključ (obično naziv aplikacije na koji se postavke odnose)

            SubKey2 – drugi ključ- value (unutar prvog ) (obično karakteristika koja se upisuje)

            Value – naziv podatka koji se upisuje (npr. datum)

            Broj – iznos koji se upisuje (string, datum, broj itd.)

Na primjer:

SaveSetting appname:="MojProgram", Section:="Licenca", Key:="Datum", setting:="20.04.2003"

Da bi se izvršilo čitanje upisanog podatka iz registry-a, sa putanje HKEY_CURRENT_USER\ Software\VB and VBA Program Settings\, potrebno je koristiti sljedeću funkciju:

Vrijednost=GetSetting ("SubKey1","SubKey2","Value","Default")

Na primjer:

GetSetting("MojProgram", "Licenca", "Datum", "0")

Prije je potrebno deklarisati varijablu Vrijednost tako da bude istog tipa kao podatak koji će biti pročitan iz registry-a.

Stavka Default predstavlja defaultnu vrijednost koja će biti pridružena varijabli Vrijednost ako u registry-u ne bude pronađena tražena stavka. Za slučaj datuma koji je upisan u registry, ako je Default=0 vraća se 0:00:00.

Brisanje stavke Value iz podključa SubKey2 vrši se pomoću funkcije :

DeleteSetting "SubKey1", "SubKey2", "Value"

Na primjer:

DeleteSetting "MojProgram", "Licenca", "Datum"

briše samo stavku datum iz podključa SubKey2

Brisanje drugog podključa SubKey2 zajedno sa njegovim sadržajem vrši se izostavljanjem stavke Value u funkciji:

DeleteSetting " SubKey1", " SubKey2"

Brisanje prvog podključa SubKey1 (cijelog izvršenog upisa u registry) zajedno sa njegovim sadržajem vrši se izostavljanjem stavki Value i SubKey2 u funkciji:

DeleteSetting " SubKey1"

Ako je pokrenuto brisanje stavke u registry-u koja ne postoji javlja se greška broj 5 (Err.Number = 5).