本文向大家介紹VB.NET訪問注冊表，可能好多人還不了解VB.NET訪問注冊表，沒有關(guān)系，看完本文你肯定有不少收獲，希望本文能教會你更多東西。

VB.NET訪問注冊表變得非常的簡單。我們可以用microsoft.Win32 名稱空間的下的registry類和registryKey類。另外My.Computer.Registry 也可以返回一個Microsoft.Win32.Registry類的實例。

下面就舉幾個小例子來說明VB.NET訪問注冊表的方法。

1、返回或創(chuàng)建一個注冊表鍵

Dim Key1 As Microsoft.Win32.RegistryKey   
Key1 = My.Computer.Registry.CurrentUser   
'返回當(dāng)前用戶鍵   
Dim Key2 As Microsoft.Win32.RegistryKey   
Key2 = Key1.OpenSubKey("northsnow")   
'返回當(dāng)前用戶鍵下的northsnow鍵   
If Key2 Is Nothing Then   
Key2 = Key1.CreateSubKey("northsnow")   
'如果鍵不存在就創(chuàng)建它   
End If  

2、刪除注冊表鍵

Dim Key1 As Microsoft.Win32.RegistryKey   
Key1 = My.Computer.Registry.CurrentUser   
'返回當(dāng)前用戶鍵   
Dim Key2 As Microsoft.Win32.RegistryKey   
Key2 = Key1.OpenSubKey("northsnow")   
'返回當(dāng)前用戶鍵下的northsnow鍵   
If Not Key2 Is Nothing Then   
Key1.DeleteSubKey("northsnow")   
'如果鍵不存在就創(chuàng)建它   
End If  

3、創(chuàng)建或讀取注冊表項

Dim Key1 As Microsoft.Win32.RegistryKey  
Key1 = My.Computer.Registry.CurrentUser '返回當(dāng)前用戶鍵  
Dim Key2 As Microsoft.Win32.RegistryKey  
Key2 = Key1.OpenSubKey("northsnow", True) '返回當(dāng)前用戶鍵下的northsnow鍵,  
如果想創(chuàng)建項，必須指定第二個參數(shù)為true  
If Key2 Is Nothing Then  
Key2 = Key1.CreateSubKey("northsnow") '如果鍵不存在就創(chuàng)建它  
End If  
 
'創(chuàng)建項，如果不存在就創(chuàng)建，如果存在則覆蓋  
Key2.SetValue("name", "塞北的雪")  
Key2.SetValue("sex", True)  
Key2.SetValue("age", 30)  
'返回項值  
Dim sb As New System.Text.StringBuilder  
sb.AppendLine(Key2.GetValue("name"))  
sb.AppendLine(Key2.GetValue("sex"))  
sb.AppendLine(Key2.GetValue("age"))  
MsgBox(sb.ToString)  
'查驗?zāi)硞€項是否存在  
If (Key2.GetValue("name")) Is Nothing Then  
MsgBox("no")  
Else  
MsgBox("yes")  
End If  
 
If (Key2.GetValue("name2")) Is Nothing Then  
MsgBox("no")  
Else  
MsgBox("yes")  
End If  
 
'輸出  
' 塞北的雪  
'True  
'30  
'yes  
'no 

4、遍歷注冊表

這個也非常簡單，在窗體上放一個按鈕和兩個文本框，添加如下的代碼：

Dim sb As New System.Text.StringBuilder   
'返回遍歷結(jié)果  
Dim sb2 As New System.Text.StringBuilder   
'返回讀取出錯的注冊表鍵  
Private Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object,  
ByVal e As System.EventArgs) Handles Button3.Click  
Dim Key1 As Microsoft.Win32.RegistryKey  
Key1 = My.Computer.Registry.CurrentUser   
'返回當(dāng)前用戶鍵  
If Not Key1 Is Nothing Then  
sb.AppendLine(Key1.Name)  
readValue(Key1)  
readReg(Key1)  
End If  
Me.TextBox1.Text = sb.ToString  
Me.TextBox2.Text = sb2.ToString  
End Sub  
 
'遍歷注冊表鍵樹  
Private Sub readReg()Sub readReg(ByVal r As Microsoft.Win32.RegistryKey)  
If r.SubKeyCount > 0 Then  
Dim keyName() As String  
Dim keyTemp As Microsoft.Win32.RegistryKey  
keyName = r.GetSubKeyNames  
Dim i As Integer  
For i = 0 To keyName.GetLength(0) - 1  
Try  
sb.AppendLine(keyName(i))  
keyTemp = r.OpenSubKey(keyName(i), True)  
readValue(keyTemp)  
readReg(keyTemp)  
Catch ex As Exception  
sb2.AppendLine(keyName(i))  
End Try  
Next  
End If  
End Sub  
 
'遍歷某鍵下的項  
Private Sub readValue()Sub readValue(ByVal r As Microsoft.Win32.RegistryKey)  
If r.ValueCount > 0 Then  
Dim valueName() As String  
Dim i As Integer  
valueName = r.GetValueNames  
For i = 0 To valueName.GetLength(0) - 1  
sb.AppendLine("####")  
sb.Append(r.Name)  
sb.Append("----")  
sb.Append(r.GetValue(valueName(i)).ToString)  
Next  
End If  
End Sub 

【編輯推薦】

1. 淺析VB.NET開發(fā)自動分頁
2. VB.NET ListView控件經(jīng)驗總結(jié)
3. 簡單講述VB.NET讀取INI
4. 簡要介紹VB System.Array類及其成員
5. 概括VB.NET獲取網(wǎng)卡地址的步驟