GetAllSettings 函数

重要:  本文是由机器翻译的,请参阅免责声明。请在 此处 中查找本文的英文版本以便参考。

注意: 如果 Microsoft Jet 表达式服务运行在沙盒模式下,可防止潜在不安全的表达式的求值,则禁用函数、 方法、 对象或本主题中介绍的属性。沙盒模式的详细信息,"沙盒模式"中搜索帮助。

从应用程序的项目在 Windows 注册表或 (在 Macintosh 上) 返回列表项设置以及各自的值 (最初通过) 应用程序的初始化文件中的信息。

语法

GetAllSettings 应用程序名 、 分区

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

参数

说明

应用程序名

必填。字符串表达式项目所请求的关键设置的应用程序的名称。在 Macintosh 上,这是初始化文件系统文件夹中的首选项文件夹中的文件名。

部分

必填。字符串表达式,其中包含请求其注册表项设置的节的名称。GetAllSettings返回一个 Variant 其内容是二维数组包含指定部分和及其相应的值中的所有项设置的字符串。


注解

如果应用程序名部分中不存在,则GetAllSettings返回未初始化变体

示例

注意: 下面的示例说明使用此函数在 Visual Basic for Applications (VBA) 模块。有关处理 VBA 的详细信息,搜索旁边的下拉列表中选择开发人员参考,然后在搜索框中输入一个或多个术语。

首先,本示例使用注册表语句在 Windows 注册表中为应用程序指定为应用程序名,使条目,然后使用GetAllSettings函数以显示设置。请注意,不能使用GetAllSettings检索应用程序名称和部分中的名称。最后,注册表语句中删除应用程序的条目。

' 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"

注意: 机器翻译免责声明:本文是由无人工介入的计算机系统翻译的。Microsoft 提供机器翻译是为了帮助非英语国家/地区用户方便阅读有关 Microsoft 产品、服务和技术的内容。由于机器翻译的原因,本文可能包含词汇、语法或文法方面的错误。

扩展你的技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

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

×