Makale GETALLSETTINGS

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,247
En iyi yanıt
9
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
GETALLSETTINGS( AppName, Section )

Anahtar ayarları listesini ve değerlerini kayıt defterinden döndürür. (Variant)


AppName

Uygulama veya projenin adı (String).

Section

Bölümün adı (String).

Açıklamalar
* Bu işlev, kayıt defteri ayarlarını aşağıdaki kayıt defteri yolundan okumak için kullanılabilir; HKEY_CURRENT_USER\Software\VB and VBA Program Settings\
* AppName, "VB and VBA Program Settings" tuşunun altındaki alt anahtardır.
* Section, AppName argümanında belirtilen anahtarın alt anahtarıdır.
* Bu işlev, uygulama adı veya bölümü yoksa, başlatılmamış Varyant (Empty) döndürür.
* Alt tuşun altında hiç tuş yoksa bu işlev Empty döner.
* Döndürülen değer, anahtarları ve değerleri içeren 2 boyutlu bir dizidir.
* Macintosh'taki AppName, sistem klasöründeki tercih klasöründeki başlatma dosyasının dosya adıdır.

Örnek Kullanım
PHP:
Sub ExcelTurkey()
    Dim vReturned As Variant
    vReturned = GetAllSettings("MyApp", "MySection")
    MsgBox vReturned(0, 0) = "MyKey"
    MsgBox vReturned(0, 1) = "MySettingValue"
   
    vReturned = GetAllSettings("Excel Turkey Eklenti", "User Settings")
    MsgBox vReturned(0, 0) = "Full Name"
    MsgBox vReturned(0, 1) = "David Smith"
   
    vReturned = GetAllSettings("Excel Turkey Eklenti", "Does Not Exist")
    MsgBox vReturned = Empty
   
    Dim MySettings As Variant, intSettings As Integer
    SaveSetting appname:="MyApp", section:="Startup", _
    Key:="Top", setting:=75
    SaveSetting "MyApp", "Startup", "Left", 50
    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"
End Sub
 
Üst Alt