Megjegyzés: A témakörben ismertetett függvény, metódus, objektum vagy tulajdonság le van tiltva, ha a Microsoft Jet Expression Service védőfalas üzemmódban fut, mivel ez megakadályozza az esetleg nem biztonságos kifejezések kiszűrését. A védőfalas üzemmódról a súgóban a „védőfalas üzemmód” kifejezésre keresve talál további információt.
Visszaadja a kulcsbeállítások és azok értékeinek listáját (eredetileg a SaveSetting használatával létrehozva) egy alkalmazás bejegyzéséből a Windows beállításjegyzékében vagy (Macintosh rendszeren) az alkalmazás inicializálási fájljában.
Szintaxis
GetAllSettings ( alkalmazásnév , szakasz )
A GetAllSettings függvény szintaxisa az alábbi argumentumokat foglalja tartalmazza:
argumentumok |
Leírás |
appnév |
Kötelező megadni. Sztringkifejezés, amely annak az alkalmazásnak vagy projekt a nevét tartalmazza, amelynek kulcsbeállításait kéri. Macintosh rendszeren ez az inicializálási fájl fájlneve a Rendszer mappa Beállítások mappájában. |
szakasz |
Megadása kötelező. Sztring expression , amely annak a szakasznak a nevét tartalmazza, amelynek a kulcsbeállításait kéri. A GetAllSettings egy Variant értéket ad vissza, amelynek tartalma egy kétdimenziós tömb, amely a megadott szakaszban található összes kulcsbeállítást és a hozzájuk tartozó értékeket tartalmazza. |
Megjegyzések
A GetAllSettings nem inicializált Variant értéket ad vissza, ha az alkalmazásnév vagy a szakasz nem létezik.
Példa
Megjegyzés: A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
Ez a példa először a SaveSetting utasítással tesz bejegyzéseket a Windows beállításjegyzékében az alkalmazásnévként megadott alkalmazáshoz, majd a GetAllSettings függvénnyel jeleníti meg a beállításokat. Vegye figyelembe, hogy a GetAllSettings nem tudja lekérni az alkalmazásneveket és a szakaszneveket. Végül a DeleteSetting utasítás eltávolítja az alkalmazás bejegyzéseit.
' 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"