Fungsi GetAllSettings

Penting: Artikel ini diterjemahkan oleh mesin, lihatlah notis penafian. Sila dapatkan versi Bahasa Inggeris artikel ini di sini sebagai rujukan anda

Nota: Fungsi, kaedah, objek atau sifat yang diperihalkan dalam topik ini dinyahdayakan jika Perkhidmatan Microsoft Jet ungkapan berjalan dalam mod kotak pasir yang menghalang penilaian ungkapan yang mungkin tidak selamat. Untuk maklumat lanjut tentang mod kotak pasir, Cari "mod kotak Pasir" dalam bantuan.

Mengembalikan senarai kunci seting dan nilai masing-masing (asalnya dicipta dengan SaveSetting) daripada entri pada aplikasi dalam daftaran Windows atau (Macintosh) maklumat dalam fail Pengasalan aplikasi tersebut.

Sintaks

GetAllSettings ( appname Seksyen )

Sintaks fungsi GetAllSettings mempunyai argumen ini:

Argumen

Perihalan

AppName

Diperlukan. Rentetan ungkapan yang mengandungi nama aplikasi atau projek yang seting kunci diminta. Pada Macintosh, ini adalah filename Pengasalan fail dalam folder keutamaan dalam folder sistem.

Seksyen

Diperlukan. Rentetan expression mengandungi nama seksyen yang seting kunci diminta. GetAllSettings mengembalikan varian kandungan yang ialah dua dimensi tatasusunan rentetan yang mengandungi semua seting kunci dalam seksyen yang ditentukan dan nilai yang sepadan.


Catatan

GetAllSettings mengembalikan yang tidak diawalkan varian Jika appname atau Seksyen tidak wujud.

Contoh

Nota: Contoh berikut menunjukkan penggunaan fungsi ini dalam Visual Basic for Applications (VBA) modul. Untuk maklumat lanjut tentang bekerja dengan VBA, pilih Rujukan pembangun dalam senarai juntai bawah di sebelah Cari dan memasukkan satu atau lebih istilah dalam kotak carian.

Contoh ini terlebih dahulu menggunakan kenyataan SaveSetting untuk menjadikan entri dalam daftaran Windows untuk aplikasi yang ditentukan sebagai appnamekemudian menggunakan fungsi GetAllSettings untuk memaparkan seting. Perhatikan bahawa nama aplikasi dan Seksyen nama tidak boleh diambil dengan GetAllSettings. Akhirnya, kenyataan DeleteSetting mengalih keluar entri dengan 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"

Nota: Notis Penafian Penterjemahan Mesin: Artikel ini telah diterjemah oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan penterjemahan mesin ini untuk membantu pengguna-pengguna yang tidak bertutur dalam Bahasa Inggeris supaya dapat menikmati kandungan mengenai produk, perkhidmatan dan teknologi Microsoft. Artikel ini mungkin mengandungi ralat perbendaharaan kata, sintaks atau tatabahasa kerana ia diterjemahkan oleh mesin.

Kembangkan kemahiran anda
Jelajahi latihan
Dapatkan ciri baru terlebih dahulu
Sertai Office Insiders

Adakah maklumat ini membantu?

Terima kasih atas maklum balas anda!

Terima kasih atas maklum balas anda! Nampaknya ia mungkin akan membantu untuk menyambungkan anda kepada salah seorang daripada ejen sokongan Office kami.

×