VB.NET中怎么实现注册表操作

这篇文章给大家介绍VB.NET中怎么实现注册表操作，内容非常详细，感兴趣的小伙伴们可以参考借鉴，希望对大家能有所帮助。

VB.NET注册表操作１，返回或创建一个注册表键

1. Dim Key1 As Microsoft.Win32.
   RegistryKey   

2. Key1 = My.Computer.Registry.
   CurrentUser '返回当前用户键   

3. Dim Key2 As Microsoft.Win32.
   RegistryKey   

4. Key2 = Key1.OpenSubKey("northsnow") 
   '返回当前用户键下的northsnow键   

5. If Key2 Is Nothing Then   

6. Key2 = Key1.CreateSubKey("northsnow")
    '如果键不存在就创建它   

7. End If  

VB.NET注册表操作２，删除注册表键

Dim Key1 As Microsoft.Win32.
RegistryKey   
Key1 = My.Computer.Registry.
CurrentUser '返回当前用户键   
Dim Key2 As Microsoft.Win32.
RegistryKey   
Key2 = Key1.OpenSubKey("northsnow") 
'返回当前用户键下的northsnow键   
If Not Key2 Is Nothing Then   
Key1.DeleteSubKey("northsnow")
 '如果键不存在就创建它   
End If  

VB.NET注册表操作3,创建或读取注册表项

Dim Key1 As Microsoft.Win32.RegistryKey   
Key1 = My.Computer.Registry.CurrentUser
 '返回当前用户键   
Dim Key2 As Microsoft.Win32.RegistryKey   
Key2 = Key1.OpenSubKey("northsnow",
 True) '返回当前用户键下的northsnow
键,如果想创建项，必须指定第二个参数为true   
If Key2 Is Nothing Then   
Key2 = Key1.CreateSubKey("northsnow") 
'如果键不存在就创建它   
End If  

'创建项，如果不存在就创建，如果存在则覆盖   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)

'查验某个项是否存在   
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  

VB.NET注册表操作4,遍历注册表

这个也非常简单，在窗体上放一个按钮和两个文本框，添加如下的代码

Dim sb As New System.Text.StringBuilder 
'返回遍历结果   
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 
'返回当前用户键   
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 

关于VB.NET中怎么实现注册表操作就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。