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 olabilecek 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 uygulamanın başlatma dosyasındaki (Macintosh'ta) bilgilerinden bir anahtar ayarı değeri döndürür.
Söz dizimi
GetSetting ( appname , section, key [, default ] )
GetSettin g işlevinin söz diziminde şu bağımsız değişkenler bulunur:
Bağımsız değişken |
Açıklama |
Uygadı |
Gerekli. anahtar ayarı istenen uygulamanın veya projenin adını içerendize ifadesi. Macintosh'ta bu, Sistem klasöründeki Tercihler klasöründeki başlatma dosyasının dosya 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 değer ayarlanmadıysa döndürülecek değeri içeren ifade. Atlanırsa, default değerinin sıfır uzunluklu bir dize ("") olduğu varsayılır. |
Notlar
GetSetting bağımsız değişkenlerinde adlı öğ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 örnek önce uygulama adı olarak belirtilen uygulamanın Windows kayıt defterine (veya 16 bit Windows platformlarında .ini dosyasına) girişler yapmak için SaveSetting deyimini kullanır ve ardından ayarlardan birini görüntülemek için GetSetting işlevini kullanı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ınamazsınız. 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"