|
|
度娘：
Windows注册表是一个数据库，用于存储与计算机不同方面相关的设置，例如用户设置、应用程序设备、硬件设置等等。VB和VBA中提供了用于读写注册表的两个函数：GetSetting和SaveSetting。利用这两个函数可以与注册表直接交互，这不仅允许我们获取其它程序和硬件的信息，而且也能够使我们选择应用程序中的重要信息并将其存储在注册表中。但是这两个函数仅能访问下面的注册表句柄键：
HKEY_CURRENT_USER\Software\VB and VBA Program Settings
一、GetSetting
功能：从Windows 注册表中的应用程序项目返回注册表项设置值（从注册表读取数据）。
语法：GetSetting(appname, section, key[, default])
GetSetting 函数的语法具有下列命名参数：
appname 必要。字符串表达式，包含应用程序或工程的名称，要求这些应用程序或工程有注册表项设置。
section 必要。字符串表达式，包含区域名称，要求该区域有注册表项设置。
key 必要。字符串表达式，返回注册表项设置的名称。
default 可选。表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则 default 取值为长度为零的字符串 ("")。
说明：如果 GetSetting 的参数中的任何一项都不存在，则 GetSetting 返回 default 的值。
二、SaveSetting
功能：在 Windows 注册表中保存或建立应用程序项目（把信息写入注册表）。
语法：SaveSetting appname, section, key, setting
SaveSetting 语句的语法具有下列命名参数：
appname 必要。字符串表达式，包含应用程序或工程的名称，对这些应用程序或工程使用设置
section 必要。字符串表达式，包含区域名称，在该区域保存注册表项设置。
key 必要。字符串表达式，包含将要保存的注册表项设置的名称。
setting 必要。表达式，包含 key 的设置值。
SaveSetting 语句示例
下列示例首先使用 SaveSetting 语句来建立 Windows 注册区（或 16 位 Windows 平台的.ini 档）里 MyApp 应用程序的项目，然后使用 DeleteSetting 语句来将之删除。
' 在注册区中添加一些设置值。
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' 删除区段及所有的设置值。
DeleteSetting "MyApp", "Startup
可以使用注册表来存储应用程序的初始和配置的设置。VBA允许读写下列注册表路径中的注册表设置：
\HKEY_CURRENT_USER\Software\VB and VBA Program Settings\{子键}
要在这个注册表路径中读取注册表设置，使用GetSetting函数。要写入注册表设置到该注册表路径中，使用SaveSetting函数。注意，不正确地修改注册表会导致严重的后果，甚至需要重新安装操作系统。
GetSetting函数和SaveSetting函数的语法如下：
SaveSetting(AppName,Section,Key,Setting)
GetSetting(AppName,Section,Key[,Default])
其中： - 参数AppName必需，String类型，指定VB and VBA Program Settings键的子键；
- 参数Section必需，String类型，在参数AppName中指定的键的子键；
- 参数Key必需，String类型，在参数Section中指定的键的值；
- 参数Setting必需，String类型或数值型，存储在参数Key指定的值中的一块数据；
- 参数default可选，String类型，指定当参数Key中没有设置值时返回的数据。
使用DeleteSetting函数删除子键或值，其语法为：
DeleteSetting(AppName[,Section[,Key]]
其中的参数与上述相同。
下面的示例代码创建带有两个值的子键，列出它们的值，然后删除子键并再次试图列出它们的值。
'演示VBA SaveSetting函数和GetSetting函数的使用
Public Sub TestRegistryFunctions()
'创建带有两个值的子键
SaveSetting AppName:="MyApp", Section:="MySection", _
Key:="MyKey", Setting:="MySetting"
SaveSetting AppName:="MyApp", Section:="MySection", _
Key:="MyKey2", Setting:="MySetting2"
'显示"MySetting"和"MySetting2"
MsgBox Prompt:=GetSetting(AppName:="MyApp", _
Section:="MySection", Key:="MyKey")
MsgBox Prompt:=GetSetting(AppName:="MyApp", _
Section:="MySection", Key:="MyKey2")
'删除子键
DeleteSetting AppName:="MyApp"
'显示空字符串
MsgBox Prompt:=GetSetting(AppName:="MyApp", _
Section:="MySection", Key:="MyKey")
MsgBox Prompt:=GetSetting(AppName:="MyApp", _
Section:="MySection", Key:="MyKey2")
End Sub
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2022-11-30 12:33
这二个函数的用法我没有看懂，有谁能告诉我一下啊，不胜感激~~~
发表于 2022-11-30 14:40
楼主
谢谢 大神！