通过

GetAllSettings 函数

  • 项目

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

语法

GetAllSettings (appname 第) 节

“GetAllSettings”函数语法具有以下命名参数：

Part 说明
appname 必填。 包含应用程序名称的字符串表达式或需要其键设置的项目。 在 Macintosh 上，在系统文件夹的首选项文件夹中有该初始化文件的文件名。
section 必填。 包含请求其键设置的节的名称的字符串 表达式 。 “GetAllSettings”返回了其内容为包含了指定节的所有键设置和其对应值的字符串的二维数组的变量。

备注

“GetAllSettings”返回了未初始化的“变量”（当应用程序名称或节不存在时）。

示例

此示例首先使用 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 VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。