GetSetting 函数 从 Windows 注册表中的应用程序项目返回注册表项设置值。语法GetSetting(appname, section, key[, default])GetSetting 函数的语法具有下列命名参数：部分描述appname必要。字符串表达式，包含应用程序或工程的名称，要求这些应用程序或工程有注册表项设置。section必要。字符串表达式，包含区域名称，要求该区域有注册表项设置。key必要。字符串表达式，返回注册表项设置的名称。default可选。表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则 default 取值为长度为零的字符串 ("")。说明如果 GetSetting 的参数中的任何一项都不存在，则 GetSetting 返回 default 的值。

该方法其实读取，注册表中HKEY_CURRENT_USER\\Software\\VB and VBA Program Settings下相应的值。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

语法

GetSetting(appname, section, key[, default])

GetSetting 函数的语法具有下列命名参数：

部分 描述

appname 必要。字符串表达式，包含应用程序或工程的名称，要求这些应用程序或工程有注册表项设置。

section 必要。字符串表达式，包含区域名称，要求该区域有注册表项设置。

key 必要。字符串表达式，返回注册表项设置的名称。

default 可选。表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则 default 取值为长度为零的字符串 ("")。

说明

如果 GetSetting 的参数中的任何一项都不存在，则 GetSetting 返回 default 的值。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

GetSetting 函数示例

声明此示例来源网络

本示例首先使用 SaveSetting 语句来建立Windows注册区（或 16位 Windows 平台的.ini档）里 appname 应用程序的项目，然后使用 GetSetting 函数来得到其中一项设置并显示出来。因为有传入参数 default，GetSetting 函数一定会有返回值。请注意，section 名称不能用 GetSetting 函数取得。最后，使用 DeleteSetting 语句将该应用程序项删除。

' 用来保存 GetSetting 函数所返回之二维数组数据的变量。

Dim MySettings As Variant

' 在注册区中添加项目。

SaveSetting "MyApp","Startup", "Top", 75

SaveSetting "MyApp","Startup", "Left", 50

Debug.Print GetSetting(appname := "MyApp", section := "Startup", _

key := "Left", default := "25")

DeleteSetting "MyApp", "Startup"