- Katılım
- 25 May 2018
- Mesajlar
- 1,601
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Office 365 TR+EN
GETSETTING( AppName, Section, Key, [Default] )
Kayıt defterinden okur ve kayıt defterinden değeri veya anahtarı döndürür. (String)
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
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