注意: 如果 Microsoft Jet 表达式服务在沙盒模式下运行，则禁用本主题中所述的函数、方法、对象或属性，这会阻止计算潜在的不安全表达式。 有关沙盒模式的详细信息，请在“帮助”中搜索“沙盒模式”。
返回最初使用 SaveSetting) 从 Windows 注册表中的应用程序条目创建的键设置及其各自的 (值的列表，或者 (Macintosh) 应用程序初始化文件中的信息。
语法
GetAllSettings ( appname 第 ) 节
GetAllSettings 函数语法具有以下参数：
|
参数 |
说明 |
|
appname |
必需。 字符串表达式，包含请求其密钥设置的应用程序或 项目 的名称。 在 Macintosh 上，这是“系统”文件夹中“首选项”文件夹中初始化文件的文件名。 |
|
节 |
必需。 字符串 expression ，包含请求其密钥设置的节的名称。 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"
