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ž lietojumprogrammas ieraksta atslēgu iestatījumu sarakstu un to atbilstošās vērtības (sākotnēji izveidotas ar SaveSetting) no lietojumprogrammas ieraksta Windows reģistrā vai (Macintosh datorā) lietojumprogrammas inicializācijas failā.
Sintakse
GetAllSettings (programmas _nosaukums , sadaļa )
Funkcijas GetAllSettings sintaksē ir šādi argumenti:
|
Arguments |
Apraksts |
|
programmas_nosaukums |
Obligāts arguments. Virknes izteiksme, kurā ir tās lietojumprogrammas vai mapes nosaukums projekts kuras atslēgas iestatījumi tiek pieprasīti. Macintosh datorā šis ir inicializācijas faila nosaukums mapē Preferences, kas atrodas mapē Sistēma. |
|
sadaļa |
Obligāts arguments. Virkne expression, kas ietver tās sadaļas nosaukumu, kuras atslēgas iestatījumi ir pieprasīti. GetAllSettings atgriež Variant vērtību, kuras saturs ir divdimensiju masīvs virknes, kas satur visus atslēgas iestatījumus norādītajā sadaļā un to atbilstošās vērtības. |
Piebildes
GetAllSettings atgriež neinicializētu Variant vērtību, ja programmas nosaukumsvai sadaļa nepastāv .
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ā lietojumprogrammai , kas norādīta kā lietojumprogrammas nosaukums, pēc tam izmanto funkciju GetAllSettings , lai parādītu iestatījumus. Ņemiet vērā , ka lietojumprogrammu nosaukumus un sadaļu nosaukumus nevar izgūt, izmantojot GetAllSettings. Visbeidzot priekšraksts DeleteSetting noņem lietojumprogrammas ierakstus.
' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
DeleteSetting "MyApp", "Startup"
