GetAllSettings 函数

注意: 如果 Microsoft Jet Expression Service 在沙盒模式下运行,则禁用本主题中所述的函数、方法、对象或属性,这会阻止评估可能不安全的表达式。 有关沙盒模式的详细信息,请搜索"帮助"中的"沙盒模式"。

返回最初使用 SaveSetting) 从 Windows 注册表中的应用程序条目或 Macintosh) 信息上的 (使用 SaveSetting) 创建密钥设置及其相应值的列表。 (

语法

GetAllSettings ( appname, section)

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

参数

说明

appname

必需。 包含请求其密钥设置的应用程序或 项目 名称的字符串表达式。 在 Macintosh 上,这是"系统"文件夹中的 Preferences 文件夹中初始化文件的文件名。

必需。 字符串e xpression, 其中包含请求其密钥设置的节的名称。 GetAllSettings 返回一个变量,其内容是字符串的二维 数组 ,其中包含指定节中的所有键设置及其对应的值。


备注

如果appname或节不存在,则GetAllSettings返回未初始化的Variant。

示例

注意: 以下示例演示了在 VBA Visual Basic for Applications (模块) 函数。 有关使用 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 技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×