.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創建注冊表編輯器的實例能夠帶給大家幫助，同時希望大家能夠多去了解有關這方面的知識，有興趣的朋友可以舉一反三，利用這種思路可以編寫出功能更強大的注冊表編輯器程序。

【編輯推薦】

1. 如何時打開多個注冊表編輯器？
2. 兩種方法禁止使用注冊表編輯器
3. 用注冊表編輯器改變IE收藏夾的位置
4. 通過注冊表編輯器修復IE瀏覽器的假死問題
5. 如何給windows2000注冊表編輯器裝個地址欄？