GetAllSettings 函数

应用对象
Microsoft 365 专属 Access Access 2021 Access 2019 Access 2016

注意

如果 Microsoft Jet 表达式服务在沙盒模式下运行，则禁用本主题中所述的函数、方法、对象或属性，从而阻止计算潜在的不安全表达式。 有关沙盒模式的详细信息，请在“帮助”中搜索“沙盒模式”。

返回最初使用 SaveSetting) 从 Windows 注册表中的应用程序条目创建的键设置及其各自的 (值的列表，或者 (Macintosh) 应用程序初始化文件中的信息。

语法

GetAllSettings (appname，第) 节

GetAllSettings 函数语法具有以下参数：

参数 说明
appname 必需。 包含请求其密钥设置的应用程序或项目的名称的字符串表达式。 在 Macintosh 上，这是“系统”文件夹中“首选项”文件夹中初始化文件的文件名。
节 必需。 包含请求其键设置的节的名称的字符串 表达式 。 GetAllSettings 返回一个 Variant 类型的值，其内容是包含指定节中的所有键设置及其相应值的二维字符串数组。

    

备注

如果 appname 或 section 不存在，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"