• Merhaba Ziyaretçi,
    10 Kasım'a Kadar VIP Paket %50 İNDİRİMLİ (bir kere öde, ömür boyu kullan)
    İndirimden yararlanmak için resme tıklayın. 👇🏻
  • Sn. Ziyaretçi,
    PEAKUP E-Book & Makale & Videoları yayınlandı.

Makale GETSETTING

Murat OSMA

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

Kayıt defterinden okur ve kayıt defterinden değeri veya anahtarı döndürür. (String)


AppName

Uygulama veya projenin adı. (String)

Section

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

Key

Dönecek anahtarın adı. (String)

[Default]

(İsteğe bağlı) Hiçbir değer ayarlanmamışsa geri dönecek değer.

Açıklamalar
* Bu yalnızca Bilgisayarım HKEY_CURRENT_USER\Software\VB and VBA Program Settings\ altındaki değerlerin geri alınması için kullanılabilir.
* Kayıt defterinin farklı bir bölümünden değerler almanız gerekiyorsa, Windows API'sını kullanmanız gerekir.
* 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.
* Key, Section argümanında belirtilen anahtarın değeridir.
* "Varsayılan" boş bırakılırsa, sıfır uzunluklu dize ("") olduğu varsayılır.
* AppName, Section veya Key yoksa, [Default] değeri döndürülür.

Örnek Kullanım
PHP:
Sub ExcelTurkey()
    MsgBox GetSetting("MyApp", "MySection", "MyKey") = "MySettingValue"
    MsgBox GetSetting("MyApp", "MySection", "DifferentKey", "does not exist")
    MsgBox GetSetting("My Amazing Add-in", "User Settings", "FullName") = "David Smith"
    
    Dim MySettings As Variant
    SaveSetting "MyApp", "Startup", "Top", 75
    SaveSetting "MyApp", "Startup", "Left", 50
    Debug.Print GetSetting(appname:="MyApp", section:="Startup", _
                           Key:="Left", Default:="25")
    DeleteSetting "MyApp", "Startup"
End Sub
 
Üst Alt