Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".
Повертає список параметрів ключа та відповідних значень (спочатку створеного за допомогою параметра " савотети") з запису програми в реєстрі Windows або (у Macintosh) у файлі ініціалізації програми.
Синтаксис
Параметри getallsettings ( APPNAME , розділ )
Синтаксис функції Getallsettings має такі аргументи:
|
Аргумент |
Опис |
|
appname |
Обов’язковий аргумент. Текстовий вираз, що міститиме ім'я програми або проект, чиї параметри ключів буде запитано. У системі Macintosh цей файл – це ім'я файлу ініціалізації в папці "Параметри" в системній папці. |
|
розділ |
– обов'язковий параметр. Рядок expression , що міститиме ім'я розділу, до якого потрібно вказати ключові параметри ключа. Функція Getallsettings Повертає варіант, вміст якого є двовимірною масив рядків, які мають всі параметри ключа в зазначеному розділі та відповідні значення. |
Примітки
Функція Getallsettings повертає Неініціалізований варіант , якщо будь-яке APPNAME або розділ не існує.
Приклад
Примітка.: У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.
У цьому прикладі в реєстрі Windows використовується оператор Savesapptнастроювання , який містить записи, визначені як aprename, а потім за допомогою функції getallsettings для відображення параметрів. Зверніть увагу, що імена застосунків і імена розділів не можна отримати за допомогою getallsettings. Врешті-решт , у програмі видалення буде видалено дані про програму.
' 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"
