Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan Ekspresi Microsoft Jet berjalan dalam mode kotak pasir, yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode kotak pasir, cari "mode kotak pasir" di Bantuan.
Mengembalikan nilai pengaturan kunci dari entri aplikasi dalam registri Windows atau informasi (di Macintosh) dalam file inisialisasi aplikasi.
Sintaks
GetSetting ( appname , section, key [, default ] )
Sintaks fungsi GetSetting memiliki argumen ini:
|
Argumen |
Deskripsi |
|
nama aplikasi |
Diperlukan. ekspresi string berisi nama aplikasi atau proyek yang pengaturan kuncinya diminta. Di Macintosh, ini adalah nama file inisialisasi dalam folder Preferensi dalam folder Sistem. |
|
bagian |
Diperlukan. Ekspresi string yang berisi nama bagian tempat pengaturan kunci ditemukan. |
|
tombol |
Diperlukan. Ekspresi string yang berisi nama pengaturan kunci untuk dikembalikan. |
|
default |
Opsional. Ekspresi yang berisi nilai yang akan dikembalikan jika tidak ada nilai yang diatur dalam pengaturan kunci. Jika dihilangkan, def ault diasumsikan sebagai string panjang-nol (""). |
Keterangan
Jika salah satu item yang dinamai dalam argumen GetSetting tidak ada, GetSetting mengembalikan nilai default.
Contoh
Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh ini terlebih dahulu menggunakan pernyataan SaveSetting untuk membuat entri dalam registri Windows (atau file .ini di platform Windows 16-bit) untuk aplikasi yang ditentukan sebagai nama aplikasi, lalu menggunakan fungsi GetSetting untuk menampilkan salah satu pengaturan. Karena argumen default ditentukan, beberapa nilai dijamin akan dikembalikan. Perhatikan bahwa nama bagian tidak dapat diambil dengan GetSetting. Akhirnya, pernyataan DeleteSetting menghapus semua entri aplikasi.
' Variant to hold 2-dimensional array returned
' by GetSetting.
Dim MySettings As Variant
' Place some settings in the registry.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50
Debug.Print GetSetting(appname := "MyApp", _
section := "Startup", _
key := "Left", default := "25")
DeleteSetting "MyApp", "Startup"
