Σημείωση: Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία παραστάσεων Microsoft Jet εκτελείται σε κατάσταση λειτουργίας φίλτρου, κάτι που αποτρέπει τον υπολογισμό πιθανώς μη ασφαλών παραστάσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, κάντε αναζήτηση για "λειτουργία φίλτρου" στη Βοήθεια.
Επιστρέφει μια λίστα των βασικών ρυθμίσεων και των αντίστοιχων τιμών τους (που δημιουργήθηκαν αρχικά με το SaveSetting) από την καταχώρηση μιας εφαρμογής στο μητρώο των Windows ή (στις πληροφορίες του Macintosh) στο αρχείο προετοιμασίας της εφαρμογής.
Σύνταξη
GetAllSettings ( όνομα εφαρμογής , ενότητα )
Η σύνταξη της συνάρτησης GetAllSettings περιλαμβάνει τα παρακάτω ορίσματα:
|
Όρισμα |
Περιγραφή |
|
όνομα εφαρμογής |
Υποχρεωτικό. Παράσταση συμβολοσειράς που περιέχει το όνομα της εφαρμογής ή έργο των οποίων απαιτούνται βασικές ρυθμίσεις. Στο Macintosh, αυτό είναι το όνομα αρχείου του αρχείου προετοιμασίας στο φάκελο Προτιμήσεις στο φάκελο Σύστημα. |
|
ενότητα |
Υποχρεωτικό. Συμβολοσειρά expression που περιέχει το όνομα της ενότητας της οποίας απαιτούνται βασικές ρυθμίσεις. Η συνάρτηση GetAllSettings επιστρέφει μια Μεταβλητή της οποίας το περιεχόμενο είναι μια δισδιάστατη πίνακας συμβολοσειρών που περιέχει όλες τις βασικές ρυθμίσεις στην καθορισμένη ενότητα και τις αντίστοιχες τιμές τους. |
Παρατηρήσεις
Η συνάρτηση GetAllSettings επιστρέφει μια Μεταβλητή που δεν έχει ξεκινήσει, εάν δεν υπάρχει όνομα εφαρμογής ή ενότητα .
Παράδειγμα
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί πρώτα την πρόταση SaveSetting για να κάνει καταχωρήσεις στο μητρώο των Windows για την εφαρμογή που καθορίζεται ως όνομα εφαρμογής και, στη συνέχεια, χρησιμοποιεί τη συνάρτηση GetAllSettings για να εμφανίσει τις ρυθμίσεις. Σημειώστε ότι δεν είναι δυνατή η ανάκτηση ονομάτων εφαρμογών και ενοτήτων με το GetAllSettings. Τέλος, η πρόταση DeleteSetting καταργεί τις καταχωρήσεις της εφαρμογής.
' 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"
