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:
| Argumentum | Leírás: |
|---|---|
| appnév | Kötelező megadni. Sztringkifejezés, amely annak az alkalmazásnak vagy projektnek 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 | Kötelező megadni. Sztringkifejezés, amely annak a szakasznak a nevét tartalmazza, amelynek kulcsbeállításait kéri. A GetAllSettings egy Variant értéket ad vissza, amelynek tartalma egy kétdimenziós sztringtömb, amely a megadott szakasz összes kulcsbeállítását é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"