Not: Microsoft Jet Expression Service 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 önler. Korumalı alan modu hakkında daha fazla bilgi için Yardım'da "korumalı alan modu" araması.
Bir uygulamanın Windows kayıt defterindeki veya (Macintosh'ta) bilgilerinden uygulamanın başlatma dosyasındaki bir anahtar ayarı değerini döndürür.
Söz dizimi
GetSetting ( uygulama adı, bölüm, anahtar [ ,varsayılan ] )
GetSettin g işlevinin söz diziminin aşağıdaki bağımsız değişkenleri vardır:
|
Bağımsız değişken |
Açıklama |
|
uygulamaadı |
Gerekli. dize ifadesi ayarı istenen uygulamanın veya projenin adını içeren bir addır. 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. İade etmek istediğiniz anahtar ayarının adını içeren dize ifadesi. |
|
varsayılan |
İsteğe bağlı. Anahtar ayarında hiçbir değer ayarlanmayacaksa, değeri içeren ifade. Atlanırsa, default'un sıfır uzunluklu bir dize ("") olduğu varsayılır. |
Notlar
GetSetting bağımsız değişkenlerinin adlandırılmış öğeleri arasında yer alan öğelerden biri yoksa, GetSetting varsayı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, önce SaveSetting deyimini kullanarak uygulama adı olarak belirtilen uygulamanın Windows kayıt defterinde (veya 16 bit Windows platformlarında .ini dosyasında) girişler yapın ve ardından ayarlardan birini görüntülemek için GetSetting işlevini kullanır. Varsayılan bağımsız değişken belirtilmiş olduğundan, bir değerin döndürülmesi garanti edilir. Bölüm adlarının GetSetting ile alınamaya dikkat edin. 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"
