本文给大家介绍用vb自带的四个函数,访问系统注册表的方法,借以说明说明这四个函数的使用。
新建工程,在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
运行程序,在窗口中输入姓名和公司名称,之后按“保存”按钮,然后再按“查找”,可以看到显示出了正确的结果,说明保存和查找操作都已正常进行。如果在保存之前或删除之后按“查找”按钮,则出现对话框,说明要找的注册表项不存在。
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器