绵阳梓潼网站制作公司

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

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

成都创新互联公司主要从事成都做网站、网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务延边朝鲜族,十余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792

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注册表操作２，删除注册表键

  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 Not Key2 Is Nothing Then   
  6. Key1.DeleteSubKey("northsnow")
     '如果键不存在就创建它   
  7. End If  

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

  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",
     True) '返回当前用户键下的northsnow
    键,如果想创建项，必须指定第二个参数为true   
  5. If Key2 Is Nothing Then   
  6. Key2 = Key1.CreateSubKey("northsnow") 
    '如果键不存在就创建它   
  7. 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)
  1. '查验某个项是否存在   
  2. If (Key2.GetValue("name")) 
    Is Nothing Then   
  3. MsgBox("no")   
  4. Else   
  5. MsgBox("yes")   
  6. End If  
  1. If (Key2.GetValue("name2")) 
    Is Nothing Then   
  2. MsgBox("no")   
  3. Else   
  4. MsgBox("yes")   
  5. End If   
  6. '输出   
  7. ' 塞北的雪   
  8. 'True   
  9. '30   
  10. 'yes   
  11. 'no  

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

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

  1. Dim sb As New System.Text.StringBuilder 
    '返回遍历结果   
  2. Dim sb2 As New System.Text.StringBuilder 
    '返回读取出错的注册表键   
  3. Private Sub Button3_Click()Sub Button3_
    Click(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles 
    Button3.Click   
  4. Dim Key1 As Microsoft.Win32.RegistryKey   
  5. Key1 = My.Computer.Registry.CurrentUser 
    '返回当前用户键   
  6. If Not Key1 Is Nothing Then   
  7. sb.AppendLine(Key1.Name)   
  8. readValue(Key1)   
  9. readReg(Key1)   
  10. End If   
  11. Me.TextBox1.Text = sb.ToString   
  12. Me.TextBox2.Text = sb2.ToString   
  13. End Sub   
  14. '遍历注册表键树   
  15. Private Sub readReg()Sub readReg
    (ByVal r As Microsoft.Win32.RegistryKey)   
  16. If r.SubKeyCount > 0 Then   
  17. Dim keyName() As String   
  18. Dim keyTemp As Microsoft.Win32.RegistryKey   
  19. keyName = r.GetSubKeyNames   
  20. Dim i As Integer   
  21. For i = 0 To keyName.GetLength(0) - 1   
  22. Try   
  23. sb.AppendLine(keyName(i))   
  24. keyTemp = r.OpenSubKey(keyName(i), True)   
  25. readValue(keyTemp)   
  26. readReg(keyTemp)   
  27. Catch ex As Exception   
  28. sb2.AppendLine(keyName(i))   
  29. End Try   
  30. Next   
  31. End If   
  32. End Sub   
  33. '遍历某键下的项   
  34. Private Sub readValue()Sub readValue
    (ByVal r As Microsoft.Win32.RegistryKey)   
  35. If r.ValueCount > 0 Then   
  36. Dim valueName() As String   
  37. Dim i As Integer   
  38. valueName = r.GetValueNames   
  39. For i = 0 To valueName.GetLength(0) - 1   
  40. sb.AppendLine("####")   
  41. sb.Append(r.Name)   
  42. sb.Append("----")   
  43. sb.Append(r.GetValue(valueName(i))
    .ToString)   
  44. Next   
  45. End If   
  46. End Sub 

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


当前标题：VB.NET中怎么实现注册表操作
网站URL：http://myzitong.com/article/jjseoc.html

其他资讯