Примітка.
Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".
Повертає список параметрів ключів і відповідних значень (створені за допомогою функції SaveSetting), отримані із запису програми в реєстрі Windows або (у системі Macintosh) відомостей із файлу ініціалізації програми.
Синтаксис
GetAllSettings(appname, section)
Синтаксис функції GetAllSettings має такі аргументи:
| Аргумент | Опис |
|---|---|
| appname | — обов’язковий аргумент. Рядковий вираз, що містить ім'я програми або проекту, для якого запитується налаштування ключів. У системі Macintosh це ім'я файлу ініціалізації в папці «Параметри» в папці «Система». |
| розділ | — обов’язковий аргумент. Рядковий вираз , що містить ім'я розділу, для якого запитується налаштування ключа. GetAllSettings повертає Variant, вміст якого є двовимірним масивом рядків, що містять усі налаштування клавіш у вказаному розділі та відповідні значення. |
Примітки
GetAllSettings повертає неініціалізований варіант , якщо назва програми або розділу не існує.
Приклад
Примітка.
У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.
У цьому прикладі оператор SaveSetting спочатку використовує інструкцію SaveSetting , щоб внести записи до реєстру Windows для програми, указаної як appname, а потім використати функцію 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"