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 ustreznih vrednosti (prvotno ustvarjenih s funkcijo SaveSetting) iz vnosa programa v register sistema Windows ali (v računalniku Macintosh) v inicializatorni datoteki aplikacije.
Sintaksa
GetAllSettings ( ime aplikacije , razdelek )
Sintaksa funkcije GetAllSettings ima te argumente:
|
Argument |
Opis |
|
ime programa |
Obvezno. Izraz niza, ki vsebuje ime programa ali ime projekt katere so zahtevane nastavitve ključa. V računalniku Macintosh je to ime inicializacijske datoteke v sistemski mapi Nastavitve. |
|
odsek |
Obvezno. String expression containing the name of the section whose key settings are requested. Funkcija GetAllSettings vrne podatkovni tip Variant, katerega vsebina je dvodimenzionalni niz matrica ki vsebuje vse nastavitve tipk v določenem razdelku in njihove ustrezne vrednosti. |
Opombe
Funkcija GetAllSettings vrne neinicializirano različico, če ime programaali razdelek 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 je najprej uporabljena izjava SaveSetting za vnose v register sistema Windows za program, določen kot ime programa, nato pa se uporabi funkcija GetAllSettings za prikaz nastavitev. Upoštevajte, da imen aplikacij in odsekov ni mogoče pridobiti s funkcijo GetAllSettings. Na koncu izjava DeleteSetting odstrani vnose programa.
' 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"
