注册表中保存数据的简单方法 VB读写注册表

VB读写注册表

'Visual Basic 提供了一个标准的注册表位置以存储创建于 Visual Basic 的应用程序的程序信息:

'HKEY_CURRENT_USER\Software\VB and VBA Program Settings\appname\section\key

'Visual Basic 也提供了四个语句或函数来处理存储在应用程序注册位置的程序设置值。

'函数或语句 描述

'GetSetting 函数 检索注册表设置值。

'SaveSetting 语句 保存或创建注册表设置值。

'GetAllSettings 函数 返回一个包含多项注册表设置值的数组。

'DeleteSetting 语句 删除注册表设置值。

'-----------------------------------------

'本例中使用了除GetAllSettings 函数之外的几个函数或语句

'-----------------------------------------

'如果仅检索一项注册表设置值,通过以下的语法使用 GetSetting 函数:

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

'各参数的意义: appname, section, key, Value

' 应用程序名称,表的名称,表项的名称,表项的值

'注:这些名称是我们自己定义的,而不是系统默认值

'本例中注册表的结构如下所示:

'应用程序名称: Demo

'表的名称: Rfile

'---------------表项名----------表项的值---

'表项1: FirstFile 0

'表项2: File0 第一个历史文件的路径

'表项2: File1 第二个历史文件的路径

'表项2: File2 第三个历史文件的路径

'表项2: File3 第四个历史文件的路径

'-----------------------------------------

'按以下语法使用 SaveSetting 语句:

'SaveSetting appname, section, Key, Value

'通过以下语法使用 DeleteSetting 语句:

'DeleteSetting(appname, section, key)

'-----------------------------------------

'Visual Basic 提供了一个标准的注册表位置以存储创建于 Visual Basic 的应用程序的程序信息:

'HKEY_CURRENT_USER\Software\VB and VBA Program Settings\appname\section\key

'Visual Basic 也提供了四个语句或函数来处理存储在应用程序注册位置的程序设置值。

'函数或语句 描述

'GetSetting 函数 检索注册表设置值。

'SaveSetting 语句 保存或创建注册表设置值。

'GetAllSettings 函数 返回一个包含多项注册表设置值的数组。

'DeleteSetting 语句 删除注册表设置值。

'-----------------------------------------

'本例中使用了除GetAllSettings 函数之外的几个函数或语句

'-----------------------------------------

'如果仅检索一项注册表设置值,通过以下的语法使用 GetSetting 函数:

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

'各参数的意义: appname, section, key, Value

' 应用程序名称,表的名称,表项的名称,表项的值

'注:这些名称是我们自己定义的,而不是系统默认值

'本例中注册表的结构如下所示:

'应用程序名称: Demo

'表的名称: Rfile

'---------------表项名----------表项的值---

'表项1: FirstFile 0

'表项2: File0 第一个历史文件的路径

'表项2: File1 第二个历史文件的路径

'表项2: File2 第三个历史文件的路径

'表项2: File3 第四个历史文件的路径

'-----------------------------------------

'按以下语法使用 SaveSetting 语句:

'SaveSetting appname, section, Key, Value

'通过以下语法使用 DeleteSetting 语句:

'DeleteSetting(appname, section, key)

'-----------------------------------------