用VB函数轻松访问系统注册表

本文给大家介绍用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

  运行程序,在窗口中输入姓名和公司名称,之后按“保存”按钮,然后再按“查找”,可以看到显示出了正确的结果,说明保存和查找操作都已正常进行。如果在保存之前或删除之后按“查找”按钮,则出现对话框,说明要找的注册表项不存在。