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 girdisinden veya uygulamanın başlatma dosyasındaki (Macintosh'ta) bilgilerinden anahtar ayarlarının ve ilgili değerlerinin (başlangıçta SaveSetting ile oluşturulur) listesini döndürür.

Söz dizimi

GetAllSettings ( appname , section )

GetAllSettings işlevinin söz diziminde şu bağımsız değişkenler bulunur:

Bağımsız değişken

Açıklama

Uygadı

Gerekli. Anahtar ayarları istenen uygulamanın veya proje adını içeren dize 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 ayarları istenen bölümün adını içeren expression dizesi. GetAllSettings , içeriği belirtilen bölümdeki tüm anahtar ayarlarını ve karşılık gelen değerlerini içeren iki boyutlu bir dize dizi olan bir Değişken döndürür.

Notlar

Uygulama adı veya bölüm yoksa GetAllSettings başlatılmamış bir Değişken 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, appname olarak belirtilen uygulamanın Windows kayıt defterinde girdiler yapmak için SaveSetting deyimini kullanır, ardından ayarları görüntülemek için GetAllSettings işlevini kullanır. Uygulama adlarının ve bölüm adlarının GetAllSettings ile alınamazsınız. 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 := 75SaveSetting "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 intSettingsDeleteSetting "MyApp", "Startup"

Daha fazla yardıma mı ihtiyacınız var?

Daha fazla seçenek mi istiyorsunuz?

Abonelik avantajlarını keşfedin, eğitim kurslarına göz atın, cihazınızın güvenliğini nasıl sağlayacağınızı öğrenin ve daha fazlasını yapın.

Topluluklar, soru sormanıza ve soruları yanıtlamanıza, geri bildirimde bulunmanıza ve zengin bilgiye sahip uzmanlardan bilgi almanıza yardımcı olur.