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 daftar pengaturan utama dan nilainya masing-masing (awalnya dibuat dengan SaveSetting) dari entri aplikasi di registri Windows atau (di Macintosh) informasi dalam file inisialisasi aplikasi.
Sintaks
GetAllSettings(nama aplikasi, bagian)
Sintaks fungsi GetAllSettings memiliki argumen berikut:
| Argumen | Deskripsi |
|---|---|
| nama aplikasi | Diperlukan. Ekspresi string yang berisi nama aplikasi atau proyek yang pengaturan utamanya diminta. Pada Macintosh, ini adalah nama file file inisialisasi di folder Preferensi di folder Sistem. |
| bagian | Diperlukan. Ekspresi string yang berisi nama bagian yang pengaturan utamanya diminta. GetAllSettings mengembalikan Varian yang kontennya adalah array string dua dimensi yang berisi semua pengaturan kunci di bagian yang ditentukan dan nilai yang terkait. |
Keterangan
GetAllSettings mengembalikan Varian yang tidak diinisialisasi jika nama ataubagian aplikasi tidak ada.
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 di registri Windows untuk aplikasi yang ditentukan sebagai appname, lalu menggunakan fungsi GetAllSettings untuk menampilkan pengaturan. Perhatikan bahwa nama aplikasi dan nama bagian tidak dapat diambil dengan GetAllSettings. Terakhir, pernyataan DeleteSetting menghapus entri aplikasi.
' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
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"