Fungsi GetAllSettings

Penting: Artikel ini adalah terjemahan mesin, lihat penafian. Temukan versi bahasa Inggris artikel di sini sebagai rujukan Anda.

Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan ekspresi Microsoft Jet sedang berjalan di 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 tombol Pengaturan dan nilainya masing-masing (awalnya dibuat dengan SaveSetting) dari aplikasi entri dalam registri Windows atau (Macintosh) informasi dalam aplikasi inisialisasi file.

Sintaks

GetAllSettings ( appname Bagian )

Sintaks fungsi GetAllSettings memiliki argumen ini:

Argumen

Deskripsi

APPNAME

Diperlukan. String berisi nama aplikasi atau proyek pengaturannya kunci diminta ekspresi. Macintosh, ini adalah nama file inisialisasi di folder preferensi di folder sistem.

Bagian

Diperlukan. String expression berisi nama bagian yang pengaturannya kunci diminta. GetAllSettings mengembalikan varian konten yang adalah dua dimensi larik string berisi semua pengaturan tombol di bagian tertentu dan nilai terkait.


Keterangan

GetAllSettings mengembalikan tidak dimulai varian jika appname 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 appname, lalu menggunakan fungsi GetAllSettings untuk menampilkan pengaturan. Perhatikan bahwa nama aplikasi dan nama Bagian tidak bisa diambil dengan GetAllSettings. Akhirnya, pernyataan DeleteSetting menghapus entri aplikasi tersebut.

' 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"

Catatan: Penafian Terjemahan Mesin: Artikel ini telah diterjemahan oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan terjemahan mesin ini untuk membantu pengguna yang bukan penutur bahasa Inggris agar dapat menikmati konten tentang produk, layanan, dan teknologi Microsoft. Karena artikel ini diterjemahkan oleh mesin, mungkin akan terdapat kesalahan kosa kata, sintaksis, atau tata bahasa.

Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×