大家都遇到過遍歷的問題，你拿到了數據就要對它進行遍歷才能讀出來，在這里我給大家演示一個VB.NET遍歷注冊表鍵，并且提供添加，修改，刪除鍵及鍵的用戶。

VB.NET遍歷注冊表代碼如下：

Imports Microsoft.Win32  
Public Class Form1  
Dim KeyUsers As RegistryKey  
''' <summary> 
''' 顯示用戶列表  
''' summary> 
''' <param name="list">顯示用戶的列表對象param> 
''' <remarks>remarks> 
Private Sub ListAllUsers(ByVal list As ListBox)  
'清除列表中的內容  
list.Items.Clear()  
'遍歷用戶鍵下的子鍵  
For Each keyname As String In KeyUsers.GetSubKeyNames()  
list.Items.Add(keyname)  
Next  
End Sub  
''' <summary> 
''' 判斷用戶是否存在  
''' summary> 
''' <param name="username">用戶名param> 
''' <returns>存在返回true，否則返回falsereturns> 
''' <remarks>remarks> 
Private Function IsUserExists(ByVal username As String) As Boolean  
'遍歷用戶鍵下的子鍵  
For Each keyname As String In KeyUsers.GetSubKeyNames()  
'如果用戶存在返回true  
If (keyname.ToUpper() = username.ToUpper()) Then  
Return True  
End If  
Next  
Return False  
End Function  
 
''' <summary> 
''' 刪除用戶  
''' summary> 
''' <param name="username">被刪除的用戶名param> 
''' <remarks>remarks> 
Private Sub DeleteUser(ByVal username As String)  
If (IsUserExists(username)) Then  
'刪除該用戶對應的鍵  
KeyUsers.DeleteSubKey(username)  
ListAllUsers(ListBox1)  
End If  
End Sub  
'更多vb.net源代碼和實例，請關注樂博網lob.cn  
''' <summary> 
''' 添加用戶  
''' summary> 
''' <param name="username">用戶名param> 
''' <returns>添加成功返回true，否則返回falsereturns> 
''' <remarks>remarks> 
Private Function AddUser(ByVal username As String) As Boolean  
Try  
'判斷用戶是否存在  
If (IsUserExists(username)) Then  
MsgBox("用戶已經存在，請輸入其它用戶！")  
Return False  
End If  
'創建用戶鍵  
KeyUsers.CreateSubKey(username, _  
RegistryKeyPermissionCheck.ReadWriteSubTree)  
'重新列表  
ListAllUsers(ListBox1)  
Catch ex As Exception  
Return False  
End Try  
End Function  
Private Sub btnCreateKey_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateKey.Click  
Dim key As RegistryKey  
Dim mykey As RegistryKey  
'首先需要獲得HKEY_CURRENT_USER\Softwar子鍵，將writable設置為True確保可寫  
key = My.Computer.Registry.CurrentUser.OpenSubKey("Software", True)  
'在HKEY_CURRENT_USER\Softwar下面創建子鍵并返回創建的子鍵對象  
mykey = key.CreateSubKey("MyKey", RegistryKeyPermissionCheck.ReadWriteSubTree)  
'創建值并且設置值的內容  
mykey.SetValue("UserName", "Rui.Chen", RegistryValueKind.String)  
End Sub  
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged  
If (ListBox1.SelectedIndex >= 0) Then  
btnDelete.Enabled = True 
Else  
btnDelete.Enabled = False 
End If  
End Sub  
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click  
DeleteUser(ListBox1.SelectedItem.ToString())  
End Sub  
Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click  
If (TextBox1.Text <> "") Then  
AddUser(TextBox1.Text)  
End If  
End Sub  
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
KeyUsers = My.Computer.Registry.CurrentUser.OpenSubKey("Software\MyKey", True)  
ListAllUsers(ListBox1)  
btnDelete.Enabled = False 
End Sub  
End Class 

以上是關于VB.NET遍歷注冊表鍵的一個實例，大家快試試吧！

【編輯推薦】

1. 剖析VB.NET平臺調用是如何執行操作
2. 分享個人總結VB.NET多線程
3. 詳細說明VB.NET變量中四點
4. 三類十二種VB.NET數據類型全面介紹
5. VB.NET初步知識，初學者必看