Opmerking
De functie, de methode, het object of de eigenschap die in dit onderwerp wordt beschreven, is uitgeschakeld als de Microsoft Jet Expression-service wordt uitgevoerd in de sandboxmodus. Hierdoor wordt de evaluatie van potentieel onveilige expressies voorkomen. Zoek in de Help naar 'sandbox-modus' voor meer informatie over de sandbox-modus.
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, section)
De syntaxis van de functie GetAllSettings heeft deze argumenten:
| Argument | Beschrijving |
|---|---|
| toepassingsnaam | Vereist. Een tekenreeksexpressie met de naam van de toepassing of het project waarvan u de sleutelinstellingen wilt opvragen. Op een Mac is dit de bestandsnaam van het initialisatiebestand in de map Voorkeuren in de systeemmap. |
| sectie | Vereist. Een tekenreeksexpressie met de naam van de sectie waarvan u de sleutelinstellingen wilt opvragen. GetAllSettings retourneert een variant waarvan de inhoud bestaat uit een tweedimensionale matrix van tekenreeksen met alle sleutelinstellingen in de opgegeven sectie en hun bijbehorende waarden. |
Opmerkingen
GetAllSettings retourneert een niet-geïnitialiseerde variant als een toepassingsnaam 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 in het Windows-register vermeldingen te maken voor de toepassing die is opgegeven als appname, waarna de functie GetAllSettings wordt gebruikt om de instellingen weer te geven. Houd er rekening mee dat toepassingsnamen 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"