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.
Deze functie retourneert de waarde voor de sleutelinstelling voor een toepassing in het Windows-register of (op een Mac) informatie uit het initialisatiebestand van de toepassing.
Syntaxis
GetSetting(app-naam, sectie, sleutel [, standaard ] )
De syntaxis van de functie GetSetting heeft deze argumenten:
| Argument | Beschrijving |
|---|---|
| toepassingsnaam | Vereist. tekenreeksexpressie met de naam van de toepassing of het project waarvan de sleutelinstelling is aangevraagd. 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 waarin de sleutelinstelling is opgeslagen. |
| sleutel | Vereist. Een tekenreeksexpressie met de naam van de sleutelinstelling die u wilt opvragen. |
| standaard | Optioneel. Een expressie met de waarde die moet worden weergegeven als er geen waarde is ingesteld in de sleutelinstelling. Als u dit weglaat, wordt de standaardwaarde uitgegaan van een tekenreeks met de lengte nul ('). |
Opmerkingen
Als een van de items met de naam in de GetSetting-argumenten niet bestaat, retourneert GetSetting de standaardwaarde.
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 (of .ini-bestand op 16-bits Windows-platformen) voor de toepassing die is opgegeven als app-naam, en gebruikt vervolgens de functie GetSetting om een van de instellingen weer te geven. Omdat het standaardargument is opgegeven, wordt gegarandeerd een bepaalde waarde geretourneerd. Houd er rekening mee dat sectienamen niet kunnen worden opgehaald met GetSetting. Ten slotte worden met de instructie DeleteSetting alle vermeldingen van de toepassing verwijderd.
' Variant to hold 2-dimensional array returned
' by GetSetting.
Dim MySettings As Variant
' Place some settings in the registry.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50
Debug.Print GetSetting(appname := "MyApp", _
section := "Startup", _
key := "Left", default := "25")
DeleteSetting "MyApp", "Startup"