Забележка
Функцията, методът, обектът или свойството, описани в тази тема, са забранени, ако услугата за изрази Microsoft Jet се изпълнява в ограничителен режим, което пречи на изчисляването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща списък с настройки на ключ и съответните им стойности (първоначално създадени със SaveSetting) от запис на приложение в системния регистър на Windows или (на Macintosh) информация във файла за инициализация на приложението.
Синтаксис
GetAllSettings(име_приложение; раздел)
Синтаксисът на функцията GetAllSettings има следните аргументи:
| Аргумент | Описание |
|---|---|
| Име на приложение | Задължително. Низов израз, съдържащ името на приложението или проекта, чиито ключови настройки се изискват. В Macintosh това е името на файла за инициализация в папката Preferences в системната папка. |
| секция; раздел | Задължително. Низов израз, съдържащ името на секцията, чиито настройки за клавиши се изискват. GetAllSettings връща вариант, чието съдържание е двумерен масив от низове, съдържащи всички ключови настройки в указаната секция и съответните им стойности. |
Забележки
GetAllSettings връща неинициализиран Variant , ако не съществува име_от приложението или секция .
Пример
Забележка
Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.
Този пример първо използва командата 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"