附註: 如果 Microsoft Jet Expression Service 在沙箱模式中執行,會停用本主題中所述的函數、方法、物件或屬性,以免評估可能不安全的表達式。 如需沙盒模式的詳細資訊,請在 [說明] 中搜尋「沙盒模式」。
傳回金鑰設定及其個別值的清單, (原本是從 Windows 登錄中的應用程式專案或 Macintosh 上的 (專案所建立的 SaveSetting) ,) 應用程式初始化檔案中的資訊。
語法
GetAllSettings ( appname , section )
GetAllSettings 函數語法具有下列自變數:
引數 |
描述 |
appname |
必要。 包含要求按鍵設定之應用程式或 專案 名稱的字串表達式。 在 Macintosh 上,這是 [系統] 資料夾中 [喜好設定] 資料夾中初始化檔案的檔名。 |
章節 |
必要。 包含要求按鍵設定之節名稱的字串e xpression 。 GetAllSettings 會 傳回 Variant,其內容為二維 陣列 字串,其中包含指定區段中的所有按鍵設定及其對應值。 |
註解
如果應用程式名稱或區段不存在,GetAllSettings 會傳回未初始化的 Variant。
範例
附註: 下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊,請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考],並在 [搜尋] 方塊中輸入一個或多個字詞。
此範例首先使用 SaveSetting 語句,在指定為 appname 的應用程式的 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"