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.
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(appname, section, key [, default ] )
De syntaxis van de functie GetSetting heeft deze argumenten:
| Argument | Beschrijving |
|---|---|
| toepassingsnaam | Vereist. Een tekenreeksexpressie met de naam van de toepassing of het project waarvan u de sleutelinstelling 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 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 argument weglaat, wordt uitgegaan van de standaardwaarde een tekenreeks met de lengte nul (""). |
Opmerkingen
Als een van de items die worden genoemd in de GetSetting-argumenten niet bestaat, retourneert GetSetting de waarde standaard.
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-platforms) voor de toepassing die is opgegeven als toepassingsnaam, waarna de functie GetSetting wordt gebruikt om een van de instellingen weer te geven. Omdat het standaardargument is opgegeven, wordt er sowieso een 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"