四步完成VB.NET读写注册表
程序员在选择使用何种编程语言来帮助他们实现自己的程序开发的时候，首先考虑的因素就是实用，灵活，效率高的语言。而VB.NET就是这样一款比较适合的编程语言。比如，VB.NET读写注册表就变得非常的简单。我们可以用 microsoft.Win32 名称空间的 下的registry 类和registryKey类。 另外 My.Computer.Registry 也可以返回一个 Microsoft.Win32.Registry 类的实例。
为略阳等地区用户提供了全套网页设计制作服务，及略阳网站建设行业解决方案。主营业务为做网站、网站设计、略阳网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
下面就举几个小例子来说明VB.NET读写注册表的方法。
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 Key2 Is Nothing Then
- Key2 = Key1.CreateSubKey("northsnow")
'如果键不存在就创建它- 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读写注册表的相关操作方法就为大家介绍到这里。
【编辑推荐】
- VB.NET条件分支语句应用方法概述
- VB.NET控件数组正确使用方法分析
- VB.NET默认属性适用规则介绍
- VB.NET网页计数器代码编写方法介绍
- VB.NET基本函数内容概述
网页题目：四步完成VB.NET读写注册表
URL网址：http://zsjierui.cn/article/dpsdgee.html