Забележка: Функцията, методът, обектът или свойството, описани в тази тема, се забраняват, ако услугата microsoft Jet Expression се изпълнява в ограничителен режим, което предотвратява оценяването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща списък с ключовите настройки и съответните им стойности (първоначално създадени със SaveSetting) от записа на приложението в системния регистър на Windows или (на Macintosh) информация във файла за инициализация на приложението.
Синтаксис
GetAllSettings ( appname , section )
Синтаксисът на функцията GetAllSettings има следните аргументи:
Аргумент |
Описание |
име на приложение |
Задължително. Израз във формата на низ, съдържащ името на приложението или проект, чиито настройки на ключ са заявени. На Macintosh това е името на файла за инициализация в папката Preferences (Предпочитания) в системната папка. |
секция; раздел |
Задължително. Низ expression , съдържащ името на секцията, чиито настройки на ключ са заявени. GetAllSettings връща стойност от тип Variant, чието съдържание е двумерна масив от низове, съдържащи всички настройки на ключа в зададения раздел и съответните им стойности. |
Забележки
GetAllSettings връща неинициализиран variant , ако или appname , или секция не съществува.
Пример
Забележка: Примерите по-долу илюстрират използването на тази функция във 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"