Napomena: Funkcija, metod, objekat ili svojstvo opisano u ovoj temi onemogućena je ako je usluga Microsoft Jet Expression pokrenuta u režimu sandbox, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u odeljku "režim sandbox" u pomoći.
Vraća vrednost postavke ključa iz stavke aplikacije u Windows registratoru ili (na Macintosh) informacijama u datoteci za pokretanje aplikacije.
Sintaksa
GetSetting ( ime aplikacije , odeljak, ključ [, podrazumevano ] )
Sintaksa funkcije GetSettin g ima sledeće argumente:
|
Argument |
Opis |
|
ime aplikacije |
Obavezno. izraz niske koji sadrže 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 koji treba vratiti. |
|
podrazumevano |
Opcionalno. Izraz koji sadrži vrednost koja će se vratiti ako u postavki ključa nije postavljena nijedna vrednost. Ako se izostavi, pretpostavlja se da je def aultat niska nulte dužine (""). |
Napomene
Ako stavke imenovane u argumentima GetSetting ne postoje, Funkcija GetSetting vraća vrednost podrazumevane vrednosti.
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 izraz SaveSetting za unose u Windows registratoru (ili .ini datoteku na 16-bitnim Windows platformama) za aplikaciju navedenu kao ime aplikacije , a zatim koristi funkciju GetSetting za prikazivanje neke od postavki. Pošto je naveden podrazumevani argument, zagarantovano je da će neka vrednost biti vraćena. Imajte na umu da imena odeljaka nije moguće preuzeti pomoću funkcije GetSetting. Na kraju, izraz 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"
