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"