| 用VB函数轻松访问系统注册表 |
|
作者：佚名 文章来源：onegreen.net 点击数： 更新时间：2008-5-13 0:12:23  |
本文给大家介绍用VB自带的四个函数（参看“注册表编程相关函数”一文），访问系统注册表的方法,借以说明说明这四个函数的使用。www.xker.com(小新技术网)
新建工程，在Form1上放置两个标签，Caption属性分别为“姓名”和“公司”；两个文本框txtName和txtCompany，Text属性均设为空；三个命令按钮cmdSave、cmdFind和cmdDelete，Caption分别设为“保存”、“查看”和“删除”。
给三个命令按钮添加如下代码：
Private Sub cmdSave_Click()
′将两个文本框中的内容分别赋给MyApp下User区中Name和Company
SaveSetting ″MyApp″, ″User″, ″Name″, txtName
SaveSetting ″MyApp″, ″User″, ″Company″, txtCompany
MsgBox ″您的信息已成功保存！″
End Sub
Private Sub cmdFind_Click()
′查找MyApp下User区中Name和Company的设置值并显示
MsgBox ″您的姓名是：″ ＆ GetSetting(″MyApp″, ″User″,
″Name″) ＆ Chr(13) ＆ Chr(10) ＆ ″您的公司是：″
＆ GetSetting(″MyApp″, ″User″, ″Company″)
End Sub
Private Sub cmdDelete_Click()
′删除MyApp下的User区域及其下的所有注册表项
DeleteSetting ″MyApp″, ″User″
End Sub
运行程序，在窗口中输入姓名和公司名称，之后按“保存”按钮，然后再按“查找”，可以看到显示出了正确的结果，说明保存和查找操作都已正常进行。如果在保存之前或删除之后按“查找”按钮，则出现对话框，说明要找的注册表项不存在。
|
| 文章录入：onegreen 责任编辑：onegreen |
|
上一篇文章： 在VB中调用API操作注册表
下一篇文章： 用注册表给应用程序加口令 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
