GetAllSettings, functie
Van toepassing op
Opmerking
De functie, methode, object of eigenschap die in dit onderwerp wordt beschreven, is uitgeschakeld als de Microsoft Jet Expression-service wordt uitgevoerd in de sandbox-modus, waardoor de evaluatie van mogelijk onveilige expressies wordt voorkomen. Zoek naar 'sandbox-modus' in de Help voor meer informatie over de sandboxmodus.
Geeft als resultaat een lijst met sleutelinstellingen en de bijbehorende waarden (zoals die oorspronkelijk zijn gemaakt met SaveSetting), afkomstig uit de vermelding van een toepassing in het Windows-register of (op een Mac) uit informatie in het initialisatiebestand van de toepassing.
Syntaxis
GetAllSettings(appname, sectie)
De syntaxis van de functie GetAllSettings heeft deze argumenten:
| Argument | Beschrijving |
|---|---|
| toepassingsnaam | Vereist. Tekenreeksexpressie met de naam van de toepassing of het project waarvan de belangrijkste instellingen worden aangevraagd. Op een Mac is dit de bestandsnaam van het initialisatiebestand in de map Voorkeuren in de systeemmap. |
| sectie | Vereist. Tekenreeksexpressie met de naam van de sectie waarvan de sleutelinstellingen worden aangevraagd. GetAllSettings retourneert een variant waarvan de inhoud een tweedimensionale matrix van tekenreeksen is met alle sleutelinstellingen in de opgegeven sectie en de bijbehorende waarden. |
Opmerkingen
GetAllSettings retourneert een niet-geïnitialiseerde variant als de app-naam of sectie niet bestaat.
Voorbeeld
Opmerking
In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht. Meer informatie over het werken met VBA vindt u door in de vervolgkeuzelijst naast Zoeken de optie Referentie voor ontwikkelaars te selecteren en een of meer termen in het zoekvenster te typen.
In dit voorbeeld wordt eerst de instructie SaveSetting gebruikt om vermeldingen te maken in het Windows-register voor de toepassing die is opgegeven als app-naam. Vervolgens wordt de functie GetAllSettings gebruikt om de instellingen weer te geven. Houd er rekening mee dat namen van toepassingen en sectienamen niet kunnen worden opgehaald met GetAllSettings. Ten slotte worden de vermeldingen van de toepassing verwijderd met de instructie DeleteSetting.
' 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"