利用VB.net2008创建注册表编辑器实例-51CTO.COM

.NET为使用与开发人员提供了功能强大、种类丰富的管理与开发工具，同时它们也是.NET框架提供的服务。本文主要利用微软的最新.net开发工具为大家展示创建注册表编辑器的例子，很适合.net开发工具的初学者，具有一定的实用价值。

本篇文章的主要开发环境是VisualStudio2008，VisualStudio系列产品一直以来都提供了强大的控件功能，然而我们利用这些控件可以编写出功能强大的应用程序，VisualStudio2008在一些特性上也做出了许多的改进。

打开VisualStudio2008在文件(File)菜单上，单击新建项目(NewProject)。在新建项目(NewProject)对话框的模板(Templates)窗格中，单击Windows应用程序(WindowsApplication)。单击确定(OK)如图1。

选择Form1窗体，在Form1窗体中添加如下控件：

分别添加Label、Button、ComboBox、TextBox、ListBox类型的控件

控件详细属性设置如下：

适当的调整控件在界面的布局，最终界面效果如图2

#p#

接下来我们需要输入代码了，进入代码编辑器

首先需要进行声明：

ImportsMicrosoft.Win32.Registry  
 
PublicClassForm1  
 
InheritsSystem.Windows.Forms.Form  
 
DimMyRegistry  
 
进入HKey_SelectedIndexChanged事件  
 
PrivateSubHKey_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesHKey.SelectedIndexChanged  
 
SelectCaseHKey.Text  
 
Case"ClassesRoot"  
 
MyRegistry=Microsoft.Win32.Registry.ClassesRoot  
 
Case"CurrentConfig"  
 
MyRegistry=Microsoft.Win32.Registry.CurrentConfig  
 
Case"CurrentUser"  
 
MyRegistry=Microsoft.Win32.Registry.CurrentUser  
 
Case"DynData"  
 
MyRegistry=Microsoft.Win32.Registry.DynData  
 
Case"LocalMachine"  
 
MyRegistry=Microsoft.Win32.Registry.LocalMachine  
 
Case"PerformanceData"  
 
MyRegistry=Microsoft.Win32.Registry.PerformanceData  
 
Case"Users"  
 
MyRegistry=Microsoft.Win32.Registry.Users  
 
EndSelect  
 
EndSub  
 
进入Button1_Click事件  
 
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click  
 
MyRegistry.CreateSubKey(SubKey.Text)'创建新键  
 
Results.Items.Add("CreateKey"&HKey.Text&"\"&SubKey.Text)  
 
EndSub  
 
进入Button2_Click事件  
 
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click  
 
MyRegistry.DeleteSubKey(SubKey.Text)'删除键  
 
Results.Items.Add("DeleteKey"&HKey.Text&"\"&SubKey.Text)  
 
EndSub  
 
进入Button3_Click事件  
 
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click  
 
MyRegistry.DeleteSubKeyTree(SubKey.Text)'删除树  
 
Results.Items.Add("DeleteTree"&HKey.Text&"\"&SubKey.Text)  
 
EndSub  
 
声明一个功能  
 
PrivateFunctionGKEYString(ByValKeyStringAsString)  
 
DimsLoc  
 
sLoc=InStrRev(KeyString,"\")  
 
IfsLoc=0Then 
 
GKEYString=KeyString 
 
Else  
 
GKEYString=Microsoft.VisualBasic.Left(KeyString,sLoc-1)  
 
EndIf  
 
EndFunction  
 
进入Button4_Click事件  
 
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click  
 
DimTempReg'设置键  
 
TempReg=MyRegistry.OpenSubKey(GKEYString(SubKey.Text),-1)  
 
TempReg.SetValue(GKEYString(SubKey.Text),KeyValue.Text)  
 
TempReg.Close()  
 
Results.Items.Add("SetValue"&HKey.Text&"\"&SubKey.Text&"="&KeyValue.Text)  
 
EndSub  
 
进入Button5_Click事件  
 
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click  
 
DimTTReg  
 
TTReg=MyRegistry.OpenSubKey(GKEYString(SubKey.Text),-1)  
 
TTReg.DeleteValue(GKEYString(SubKey.Text))  
 
TTReg.Close()  
 
Results.Items.Add("DeleteValue"&HKey.Text&"\"&SubKey.Text)'删除键值  
 
EndSub  
 
进入Button6_Click事件  
 
PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click  
 
DimTdTReg  
 
TdTReg=MyRegistry.OpenSubKey(GKEYString(SubKey.Text),0)'读取键  
 
KeyValue.Text=TdTReg.GetValue(GKEYString(SubKey.Text),"")  
 
TdTReg.Close()  
 
Results.Items.Add("ReadValue"&HKey.Text&"\"&SubKey.Text)  
 
EndSub

代码输入完毕后，我们运行程序进行测试，输入子键与键值。运行界面如图3所示

好了程序运行成功。

总结：

注册表编辑器应用是我们编程中常要用到的，希望本程序利用VB.net2008创建注册表编辑器的实例能够带给大家帮助，同时希望大家能够多去了解有关这方面的知识，有兴趣的朋友可以举一反三，利用这种思路可以编写出功能更强大的注册表编辑器程序。

【编辑推荐】