GetAllSettings (Барлық параметрлерді алу) функциясы

Ескерту : Егер Microsoft Jet Expression қауіптілігі ықтимал өрнектің есептелуіне жол бермейтін құмсалғыш режимінде іске қосылғанда, осы бөлімдегі функция, әдіс, нысан немесе сипат доғарылады. Құмсалғыш режимі туралы толық ақпарат алу үшін Анықтамадағы "құмсалғыш режимін" іздеңіз.

Windows тізбенің бағдарламалық ендірілуден немесе (Macintosh) компьютердің бастау файлының мәліметтерінен (бастапқы Параметрлер сақтау жасалған) негізгі параметрлер тізімін және олардың тиісті мәндерін қайтарады.

Синтаксис

GetAllSettings(бағдарламаатауы, бөлім)

GetAllSettings функцияның синтаксисында мұндай аргумент бар:

Дәлел

Сипаттама

appname

Міндетті. Бағдарлама атауы бар жол өрнегі немесе негізгі параметрлерді талап ететін жоба. Macintosh бағдарламасында бұл Жүйелік қалтасындағы Сипаттар қалтасында бастау файлының файл атауы болып табылады.

бөлім

Міндетті. Негізгі параметрлері талап етілген бөлім атауы бар Жол өрнегі. GetAllSettings мазмұны көрсетілген бөлімде барлық негізгі параметрлер және олардың сәйкес мәндер бар жолдардың екі өлшемдік жиынтық болған Нұсқаның деректер түрі қайтарады.


Ескертпелер

GetAllSettings басталмаған Нұсқаны қайтарады, егер appname не бөлім болмаса.

Мысал

Ескерту : Төмендегі үлгілер осы жетені Бағдарламаларға арналған Visual Basic (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"
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×