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 kunci dan nilainya masing-masing (awalnya dibuat dengan SaveSetting) dari entri aplikasi dalam registri Windows atau (di Macintosh) dalam file inisialisasi aplikasi.
Sintaks
GetAllSettings ( appname , section )
Sintaks fungsi GetAllSettings memiliki argumen ini:
Argumen |
Deskripsi |
nama aplikasi |
Diperlukan. Ekspresi string yang berisi nama aplikasi atau proyek yang pengaturan kuncinya diminta. Di Macintosh, ini adalah nama file inisialisasi dalam folder Preferensi dalam folder Sistem. |
bagian |
Diperlukan. String expression berisi nama bagian yang pengaturan kuncinya diminta. GetAllSettings mengembalikan Varian yang kontennya merupakan larik dua dimensi string yang berisi semua pengaturan kunci di bagian tertentu dan nilai terkaitnya. |
Keterangan
GetAllSettings mengembalikan Varian yang tidak terinisialisasi jika nama aplikasi atau bagian 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 terlebih dahulu menggunakan pernyataan SaveSetting untuk membuat entri dalam registri Windows untuk aplikasi yang ditentukan sebagai nama aplikasi, lalu menggunakan fungsi GetAllSettings untuk menampilkan pengaturan. Perhatikan bahwa nama aplikasi dan nama bagian tidak dapat diambil dengan GetAllSettings. Akhirnya, 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"