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 di registri Windows atau (di Macintosh) informasi dalam file inisialisasi aplikasi.
Sintaks
GetSetting(nama aplikasi, bagian, tombol [, default ] )
Sintaks fungsi GetSetting memiliki argumen berikut:
| Argumen | Deskripsi |
|---|---|
| nama aplikasi | Diperlukan. ekspresi string yang berisi nama aplikasi atau proyek yang pengaturan kuncinya diminta. Pada Macintosh, ini adalah nama file file inisialisasi di folder Preferensi di folder Sistem. |
| bagian | Diperlukan. Ekspresi string yang berisi nama bagian tempat pengaturan kunci ditemukan. |
| kunci | Diperlukan. Ekspresi string yang berisi nama pengaturan kunci yang akan dikembalikan. |
| default | Opsional. Ekspresi yang berisi nilai yang akan dikembalikan jika tidak ada nilai yang diatur dalam pengaturan kunci. Jika dikosongkan, default diasumsikan sebagai string kosong (""). |
Keterangan
Jika tidak ada item yang disebutkan dalam argumen GetSetting , 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 pertama-tama menggunakan pernyataan SaveSetting untuk membuat entri dalam registri Windows (atau file .ini pada platform Windows 16-bit) untuk aplikasi yang ditentukan sebagai appname, 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. Terakhir, 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"