Функція GetAllSettings

Увага! : Цю статтю перекладено за допомогою служби машинного перекладу; див. застереження. Версію цієї статті англійською мовою див. тут для отримання довідки.

Примітка : Функції, метод об'єкта або властивість у цьому розділі описано буде вимкнуто, якщо вираз служби Microsoft Jet працює у режимі ізольованого програмного середовища, що запобігає обчислення потенційно небезпечних виразів. Додаткові відомості про режим ізольованого програмного середовища знайдіть «режим пісочниці» у вікні довідки.

Повертає список параметрів ключів та їх відповідні значення (спочатку створені за допомогою функції SaveSetting) із запису застосунку в реєстрі Windows або (Macintosh) відомості у файлі ініціалізації застосунку.

Синтаксис

GetAllSettings ( appname розділ )

Синтаксис функції GetAllSettings має такі аргументи:

Аргумент

Опис

APPNAME

Обов'язковий аргумент. Рядковий вираз, що містить ім'я застосунку або проект про це, основні настройки. На комп'ютері Macintosh це ім'я файлу ініціалізації файлу в папці параметри» в папці системи.

розділ

Обов'язковий аргумент. Рядок eвираз містять ім'я розділу про це, основні настройки. GetAllSettings повертає значення типу Variant, вміст яких є двовимірних масив рядків, що містить усі ключові настройки в розділі вказаного і їхні відповідні значення.


Примітки

GetAllSettings повертає на файл, неініціалізовані варіант , якщо appname "або" розділ не існує.

Приклад

Примітка : У прикладах нижче показано використання цієї функції в модулі 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"

Примітка : Застереження про машинний переклад: Цю статтю перекладено комп’ютерною системою без втручання людини. Корпорація Майкрософт пропонує таку послугу, щоб іншомовні користувачі могли дізнаватися про продукти, служби й технології Microsoft. Оскільки статтю перекладено за допомогою служби машинного перекладу, вона може містити смислові, синтаксичні або граматичні помилки.

Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

Ця інформація корисна?

Дякуємо за ваш відгук!

Дякуємо за відгук! Схоже, вам може стати в нагоді допомога одного з наших спеціалістів служби підтримки Office, з яким ми вас можемо з’єднати.

×