Napomena
Funkcija, metod, objekat ili svojstvo opisani u ovoj temi onemogućeni su ako je usluga Microsoft Jet Expression Service pokrenuta u režimu "sandbox", što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u pomoći za "režim sandbox".
Vraća vrednost postavke ključa iz unosa aplikacije u Windows registratoru ili (na Macintosh računaru) informacija u datoteci za pokretanje aplikacije.
Sintaksa
GetSetting(appname, section, key [, default ] )
Sintaksa funkcije GetSetting ima sledeće argumente:
| Argument | Opis |
|---|---|
| ime aplikacije | Obavezno. Izraz niske koji sadrži ime aplikacije ili projekta čija se postavka ključa zahteva. Na Macintosh računaru ovo je ime datoteke za pokretanje u fascikli "Željene postavke" u fascikli "Sistem". |
| odeljak | Obavezno. Izraz niske koji sadrži ime odeljka u kojem je pronađena postavka ključa. |
| ključ | Obavezno. Izraz niske koji sadrži ime postavke ključa koju treba vratiti. |
| podrazumevano | Opcionalno. Izraz koji sadrži vrednost koja se vraća ako u postavki ključa nije postavljena nikakva vrednost. Ako je izostavljena, podrazumevana vrednost je niska nulte dužine (""). |
Napomene
Ako neka stavka imenovana u argumentima GetSetting ne postoji, GetSetting daje vrednost default.
Primer
Napomena
Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Ovaj primer prvo koristi instrukciju SaveSetting da bi unose u Windows registratoru (ili .ini datoteci na 16-bitnim Windows platformama) za aplikaciju navedenu kao appname, a zatim koristi funkciju GetSetting za prikaz jedne od postavki. Pošto je naveden podrazumevani argument, garantovano je da će neka vrednost biti vraćena. Imajte na umu da imena odeljaka nije moguće preuzeti pomoću funkcije GetSetting. Na kraju, instrukcija DeleteSetting uklanja sve stavke aplikacije.
' Variant to hold 2-dimensional array returned
' by GetSetting.
Dim MySettings As Variant
' Place some settings in the registry.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50
Debug.Print GetSetting(appname := "MyApp", _
section := "Startup", _
key := "Left", default := "25")
DeleteSetting "MyApp", "Startup"