注册表函数 SaveSetting /GetAllSettings 函数

SaveSetting 语句

在 Windows 注册表的应用程序条目中保存或创建应用程序项，或在 Macintosh 上，在应用程序的初始化文件中保存或创建信息。

语法

SaveSettingappname、 section、 key、 setting

“SaveSetting”**** 语句语法具有以下命名参数：

Part	说明
appname	必需。 包含该应用程序的名称的字符串表达式或该设置适用的项目。 在 Macintosh 上，这是“系统”文件夹的“首选项”文件夹中的初始化文件的文件名。
section	必需。 包含保存关键设置的节的名称的字符串表达式。
key	必需。 包含正在被保存的关键设置的名称的字符串表达式。
setting	必需。 包含将“键”__ 设置为的值的表达式。

备注

如果不论什么原因都不能保存该关键设置，则会发生错误。

这些注册表设置的根目录为: Computer\HKEY_CURRENT_USER\Software\VB and VBA Program Settings。

示例

下面的示例首先使用SaveSetting语句在 windows 注册表 (或16位 Windows 平台上的 .ini 文件) 中为应用程序创建条目, 然后使用**DeleteSetting** 语句将其删除。

VB

' Place some settings in the registry. SaveSetting appname := 'MyApp', section := 'Startup', _ key := 'Top', setting := 75 SaveSetting 'MyApp','Startup', 'Left', 50 ' Remove section and all its settings from registry. DeleteSetting 'MyApp', 'Startup'

另请参阅

• 数据类型
• 语句

GetAllSettings 函数

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

语法

GetAllSettings(appname, section)

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

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

备注

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

示例

本示例首先使用SaveSetting语句在 Windows 注册表中为指定为_appname_的应用程序生成条目, 然后使用GetAllSettings函数显示设置。 请注意，使用“GetAllSettings”__ 不能检索应用程序名称和节名称。 最后, DeleteSetting 语句将删除应用程序的条目。

VB

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

另请参阅

• 函数 (Visual Basic for Applications)