.NET為使用與開(kāi)發(fā)人員提供了功能強(qiáng)大、種類豐富的管理與開(kāi)發(fā)工具，同時(shí)它們也是.NET框架提供的服務(wù)。本文主要利用微軟的最新.net開(kāi)發(fā)工具為大家展示創(chuàng)建注冊(cè)表編輯器的例子，很適合.net開(kāi)發(fā)工具的初學(xué)者，具有一定的實(shí)用價(jià)值。

本篇文章的主要開(kāi)發(fā)環(huán)境是VisualStudio2008，VisualStudio系列產(chǎn)品一直以來(lái)都提供了強(qiáng)大的控件功能，然而我們利用這些控件可以編寫出功能強(qiáng)大的應(yīng)用程序，VisualStudio2008在一些特性上也做出了許多的改進(jìn)。

打開(kāi)VisualStudio2008在文件(File)菜單上，單擊新建項(xiàng)目(NewProject)。在新建項(xiàng)目(NewProject)對(duì)話框的模板(Templates)窗格中，單擊Windows應(yīng)用程序(WindowsApplication)。單擊確定(OK)如圖1。

選擇Form1窗體，在Form1窗體中添加如下控件：

分別添加Label、Button、ComboBox、TextBox、ListBox類型的控件

控件詳細(xì)屬性設(shè)置如下：

適當(dāng)?shù)恼{(diào)整控件在界面的布局，最終界面效果如圖2

#p#

接下來(lái)我們需要輸入代碼了，進(jìn)入代碼編輯器

首先需要進(jìn)行聲明：

ImportsMicrosoft.Win32.Registry  
 
PublicClassForm1  
 
InheritsSystem.Windows.Forms.Form  
 
DimMyRegistry  
 
進(jìn)入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  
 
進(jìn)入Button1_Click事件  
 
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click  
 
MyRegistry.CreateSubKey(SubKey.Text)'創(chuàng)建新鍵  
 
Results.Items.Add("CreateKey"&HKey.Text&"\"&SubKey.Text)  
 
EndSub  
 
進(jìn)入Button2_Click事件  
 
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click  
 
MyRegistry.DeleteSubKey(SubKey.Text)'刪除鍵  
 
Results.Items.Add("DeleteKey"&HKey.Text&"\"&SubKey.Text)  
 
EndSub  
 
進(jìn)入Button3_Click事件  
 
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click  
 
MyRegistry.DeleteSubKeyTree(SubKey.Text)'刪除樹(shù)  
 
Results.Items.Add("DeleteTree"&HKey.Text&"\"&SubKey.Text)  
 
EndSub  
 
聲明一個(gè)功能  
 
PrivateFunctionGKEYString(ByValKeyStringAsString)  
 
DimsLoc  
 
sLoc=InStrRev(KeyString,"\")  
 
IfsLoc=0Then 
 
GKEYString=KeyString 
 
Else  
 
GKEYString=Microsoft.VisualBasic.Left(KeyString,sLoc-1)  
 
EndIf  
 
EndFunction  
 
進(jìn)入Button4_Click事件  
 
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click  
 
DimTempReg'設(shè)置鍵  
 
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  
 
進(jìn)入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  
 
進(jìn)入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  
 

代碼輸入完畢后，我們運(yùn)行程序進(jìn)行測(cè)試，輸入子鍵與鍵值。運(yùn)行界面如圖3所示

好了程序運(yùn)行成功。

總結(jié)：

注冊(cè)表編輯器應(yīng)用是我們編程中常要用到的，希望本程序利用VB.net2008創(chuàng)建注冊(cè)表編輯器的實(shí)例能夠帶給大家?guī)椭瑫r(shí)希望大家能夠多去了解有關(guān)這方面的知識(shí)，有興趣的朋友可以舉一反三，利用這種思路可以編寫出功能更強(qiáng)大的注冊(cè)表編輯器程序。

【編輯推薦】

1. 如何時(shí)打開(kāi)多個(gè)注冊(cè)表編輯器？
2. 兩種方法禁止使用注冊(cè)表編輯器
3. 用注冊(cè)表編輯器改變IE收藏夾的位置
4. 通過(guò)注冊(cè)表編輯器修復(fù)IE瀏覽器的假死問(wèn)題
5. 如何給windows2000注冊(cè)表編輯器裝個(gè)地址欄？