注意: 如果 Microsoft Jet 表达式服务在沙盒模式下运行,则禁用本主题中所述的函数、方法、对象或属性,这会阻止计算潜在的不安全表达式。 有关沙盒模式的详细信息,请在“帮助”中搜索“沙盒模式”。
从 Windows 注册表中的应用程序条目或 Macintosh 上的 (返回键设置值,) 应用程序初始化文件中的信息。
语法
GetSetting ( appname , section, key [, default ] )
GetSettin g 函数语法具有以下参数:
参数 |
说明 |
appname |
必需。 字符串表达式 包含请求其密钥设置的应用程序或项目的名称。 在 Macintosh 上,这是“系统”文件夹中“首选项”文件夹中初始化文件的文件名。 |
节 |
必需。 包含在其中找到键设置的节名称的字符串表达式。 |
密钥 |
必需。 包含要返回的键设置的名称的字符串表达式。 |
默认 |
可选。 如果键设置中未设置值,则包含要返回的值的表达式。 如果省略, 则假定 default 为零长度字符串 (“”) 。 |
备注
如果 GetSetting 参数中命名的任何项不存在, GetSetting 将返回 默认值。
示例
注意: 下面的示例演示了如何在 Visual Basic for Applications (VBA) 模块中使用此函数。 有关使用 VBA 的详细信息,请在搜索旁边的下拉列表中选择“开发人员参考”,并在搜索框中输入一个或多个术语。
此示例首先使用 SaveSetting 语句将 16 位 Windows 平台上的 windows 注册表 (或 .ini 文件中的条目) 指定为 appname 的应用程序,然后使用 GetSetting 函数显示其中一个设置。 由于指定了 默认 参数,因此保证返回一些值。 请注意,无法使用 GetSetting 检索节名称。 最后, DeleteSetting 语句删除应用程序的所有条目。
' Variant to hold 2-dimensional array returned
' by GetSetting. Dim MySettings As Variant ' Place some settings in the registry. SaveSetting "MyApp","Startup", "Top", 75 SaveSetting "MyApp","Startup", "Left", 50 Debug.Print GetSetting(appname := "MyApp", _ section := "Startup", _ key := "Left", default := "25") DeleteSetting "MyApp", "Startup"