Not
Microsoft Jet İfade Hizmeti korumalı alan modunda çalışıyorsa, bu konuda açıklanan işlev, yöntem, nesne veya özellik devre dışı bırakılır ve bu da güvenli olmayabilecek ifadelerin değerlendirilmesini engeller. Korumalı alan modu hakkında daha fazla bilgi için, Yardım'da "korumalı alan modu" araması yapın.
Bir uygulamanın Windows kayıt defterindeki girişinden veya (Macintosh'ta) uygulamanın başlatma dosyasındaki bilgiden bir anahtar ayar değeri döndürür.
Söz dizimi
GetSetting(appname, section, key [, varsayılan ] )
GetSetting işlevinin söz diziminde aşağıdaki bağımsız değişkenler bulunur:
| Bağımsız değişken | Açıklama |
|---|---|
| uygulama adı | Gerekli. Anahtar ayarı istenen uygulama veya projenin adını içeren dize ifadesi. Macintosh'ta bu, System klasörünün Tercihler klasöründe bulunan başlatma dosyasının adıdır. |
| bölüm | Gerekli. Anahtar ayarının bulunduğu bölümün adını içeren dize ifadesi. |
| anahtar | Gerekli. Döndürülecek anahtar ayarının adını içeren dize ifadesi. |
| varsayılan | İsteğe bağlı. Anahtar ayarında herhangi bir değer ayarlanmamışsa döndürülecek değeri içeren ifade. Belirtilmezse, varsayılan değer olarak sıfır uzunluklu bir dize ("") olduğu varsayılır. |
Açıklamalar
GetSetting bağımsız değişkenlerinde adlandırılan öğelerden herhangi biri yoksa, GetSettingvarsayılan değerini döndürür.
Örnek
Not
Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.
Bu örnekte, appname olarak belirtilen uygulama için Windows kayıt defterinde (veya 16 bit Windows platformlarında .ini dosyasında) girdi yapmak için SaveSetting deyimi kullanılır ve ardından ayarlardan birini görüntülemek için GetSetting işlevi kullanılır. Varsayılan bağımsız değişken belirtildiğinden, bazı değerlerin döndürülmesi garanti edilir. Bölüm adlarının GetSetting ile alınamadığını unutmayın. Son olarak, DeleteSetting deyimi uygulamanın tüm girdilerini kaldırır.
' 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"