Funkcija GetAllSettings

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 novērš potenciāli nedrošu izteiksmju novērtējumu. Lai iegūtu papildinformāciju par smilškastes režīmu, sadaļā Palīdzība meklējiet "smilškastes režīms".

Atgriež taustiņu iestatījumu un to atbilstošo vērtību sarakstu (sākotnēji izveidots ar SaveSetting) no lietojumprogrammas ieraksta Windows reģistrā vai (Macintosh) informācijā lietojumprogrammas inicializācijas failā.

Sintakse

GetAllSettings (programmāGeneral_AppName, sadaļa)

Funkcijas GetAllSettings sintaksei ir šādi argumenti.

Arguments

Apraksts

APPNAME

Obligāts. Virknes izteiksme, kurā ietverts tās lietojumprogrammas vai projekts nosaukums, kuras galvenie iestatījumi ir nepieciešami. Macintosh datorā šis ir inicializācijas faila nosaukums sistēmas mapes mapē preferences.

sadaļa

Obligāts. String eXpress ar tās sadaļas nosaukumu, kuras atslēgas iestatījumi ir nepieciešami. GetAllSettings atgriež Variant, kura saturs ir divdimensiju masīvs virknēs, kurās ir visi atslēgas iestatījumi norādītajā sadaļā un to atbilstošās vērtības.


Piebildes

GetAllSettings atgriež neinicializētu variantu , ja programmā General_AppName vai Section 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.

Šis piemērs pirmo reizi izmanto SaveSetting priekšrakstu, lai veiktu ierakstus Windows reģistrā par lietojumprogrammu, kas norādīta kā programma General_AppName, un pēc tam izmanto funkciju GetAllSettings , lai rādītu iestatījumus. Ņemiet vērā, ka lietojumprogrammu nosaukumus un sadaļu nosaukumus nevar izgūt kopā ar GetAllSettings. Visbeidzot DeleteSetting priekšraksts 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"

Vai nepieciešama papildu palīdzība?

Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×