Piezīme
Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts ir atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, kas neļauj novērtēt potenciāli nedrošas izteiksmes. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīms" palīdzībā.
Atgriež atslēgas iestatījuma vērtību no lietojumprogrammas ieraksta Windows reģistrā vai (Macintosh datorā) informācijas lietojumprogrammas inicializācijas failā.
Sintakse
GetSetting(lietojumprogrammas nosaukums, sadaļa, atslēga [, noklusējums ] )
Funkcijas GetSetting sintaksei ir šādi argumenti:
| Arguments | Apraksts |
|---|---|
| programmas nosaukums | Obligāts arguments. Virknes izteiksme, kas satur tās lietojumprogrammas vai projekta nosaukumu, kuras atslēgas iestatījums tiek pieprasīts. Macintosh datorā tas ir inicializācijas faila nosaukums mapes System mapē Preferences. |
| sadaļa | Obligāts arguments. Virknes izteiksme, kas satur tās sadaļas nosaukumu, kurā atrodas atslēgas iestatījums. |
| Atslēga | Obligāts arguments. Virknes izteiksme, kas satur atgriežamā atslēgas iestatījuma nosaukumu. |
| noklusējums | Neobligāts arguments. Izteiksme, kas satur vērtību, kas jāatgriež, ja atslēgas iestatījumā nav iestatīta vērtība. Ja tā tiek izlaista, tiek pieņemts, ka noklusējuma virkne ir nulles garuma (""). |
Piezīmes
Ja kāds no GetSetting argumentos nosauktajiem vienumiem nepastāv, GetSetting atgriež noklusējuma vērtību.
Piemērs
Piezīme
Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.
Šajā piemērā vispirms tiek izmantots priekšraksts SaveSetting , lai veiktu ierakstus Windows reģistrā (vai .ini failā 16 bitu Windows platformās) programmai, kas norādīta kā AppName, un pēc tam tiek izmantota funkcija GetSetting , lai parādītu vienu no iestatījumiem. Tā kā ir norādīts noklusējuma arguments, garantēta vērtības atgriešana. Ņemiet vērā, ka, izmantojot GetSetting, sadaļu nosaukumus nevar izgūt. Visbeidzot priekšraksts DeleteSetting noņem visus lietojumprogrammas ierakstus.
' 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"