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.
Windows kayıt defterindeki bir uygulama girişinden veya (Macintosh'ta) uygulamanın başlatma dosyasındaki bilgilerden anahtar ayarlarının ve ilgili değerlerinin bir listesini (başlangıçta SaveSetting ile oluşturulmuştur) döndürür.
Söz dizimi
GetAllSettings(appname, section)
GetAllSettings 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 ayarları 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 ayarları istenen bölümün adını içeren dize ifadesi . GetAllSettings , içeriği belirtilen bölümdeki tüm anahtar ayarlarını ve bunlara karşılık gelen değerleri içeren iki boyutlu bir dize dizisi olan bir Variant döndürür. |
Açıklamalar
GetAllSettings, appname veya section mevcut değilse başlatılmamış bir Variant 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 ilk olarak SaveSetting deyimi kullanılarak appname olarak belirtilen uygulama için Windows kayıt defterinde girişler yapılır, ardından ayarları görüntülemek için GetAllSettings işlevi kullanılır. Uygulama adlarının ve bölüm adlarının GetAllSettings ile alınamadığını unutmayın. Son olarak, DeleteSetting deyimi uygulamanın girdilerini kaldırır.
' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
DeleteSetting "MyApp", "Startup"