Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts tiek atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, tā 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" sadaļā Palīdzība.
Atgriež atslēgas iestatījuma vērtību no lietojumprogrammas ieraksta Windows reģistrā vai (Macintosh datorā) informāciju lietojumprogrammas inicializācijas failā.
Sintakse
GetSetting ( programmas_nosaukums , sadaļa, taustiņš [, noklusējums ] )
Funkcijas GetSetting sintaksei ir šādi argumenti.
|
Arguments |
Apraksts |
|
programmas_nosaukums |
Obligāts arguments. virknes izteiksme, kurā ir tās lietojumprogrammas vai projekta nosaukums, kuras atslēgas iestatījums ir nepieciešams. Macintosh datorā šis ir inicializācijas faila nosaukums mapē Preferences, kas atrodas mapē Sistēma. |
|
sadaļa |
Obligāts arguments. Virknes izteiksme, kurā ir tās sadaļas nosaukums, kurā atrodas atslēgas iestatījums. |
|
atslēga |
Obligāts arguments. Virknes izteiksme, kurā ir atgriežamās atslēgas iestatījuma nosaukums. |
|
noklusējums |
Neobligāts arguments. Izteiksme, kurā ietverta vērtība, kas tiek atgriezta, ja atslēgas iestatījumā nav iestatīta vērtība. Ja šī vērtība ir izlaista, tiek pieņemts, ka noklusējuma vērtība ir nulles garuma virkne (""). |
Piebildes
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) lietojumprogrammai, kas norādīta kā lietojumprogrammas nosaukums, un pēc tam izmanto funkciju GetSetting, lai parādītu vienu no iestatījumiem. Tā kā ir norādīts noklusējuma arguments, tiek garantēts, ka tiks atgriezta kāda vērtība. Ņemiet vērā, ka sadaļu nosaukumus nevar izgūt, izmantojot GetSetting. 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"
