Funkcija GetAllSettings

Opomba: V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.

Vrne seznam nastavitev ključa in njihovih vrednosti (prvotno ustvarjenih z SaveSetting) iz vnosa aplikacije v registru sistema Windows ali (v Macintoshevih) podatkih v inicializacijski datoteki aplikacije.

Sintaksa

GetAllSettings ( AppName ; oddelek )

V sintaksi funkcije GetAllSettings so ti argumenti:

Argument

Opis

ime programa

Obvezno. Nizni izraz, ki vsebuje ime aplikacije ali projekt katerega nastavitve ključa so zahtevane. V računalniku Macintosh je to ime inicializacijske datoteke v sistemski mapi Nastavitve.

odsek

Obvezno. » Niz e-Xpress «, ki vsebuje ime odseka, katerega nastavitve ključa so zahtevane. GetAllSettings vrne različico, katerega vsebina je dvodimenzionalna matrica nizov, ki vsebujejo vse nastavitve ključa v navedenem razdelku in njihove ustrezne vrednosti.


Opombe

GetAllSettings vrne neinicializirano različico , če bodisi AppName ali odsek ne obstaja.

Primer

Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.

V tem primeru najprej uporabite izjavo SaveSetting za vnos vnosov v register sistema Windows za program, ki je določen kot AppName, nato pa uporabi funkcijo GetAllSettings za prikaz nastavitev. Upoštevajte, da imen programov in imen odsekov ni mogoče pridobiti z GetAllSettings. Na koncu izjava DeleteSetting odstrani vnose aplikacije.

' 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"

Ali potrebujete dodatno pomoč?

Razširite poznavanje Officea
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

Zahvaljujemo se vam za povratne informacije.

Zahvaljujemo se vam za povratne informacije. Videti je, da bi vam prišla prav pomoč enega od naših Officeovih agentov za podporo.

×