VB.NET操作注册表轻松上手

VB.NET的出现可以说很大程度上改变了开发人员原有的摆弄些代码方式，为编程人员带来了一个良好的编程环境。对于VB.NET操作注册表, 和VS STUDIO 时代,真是不可同日而语, .NET 之前的操作, 要引入大量的 API 函数,含有键值类型, 错误类型等, 繁琐的要死, 而.NET中,实现起来的简单程度,已经和 DELPHI 基本相同了,下面通过例子体验一下: #t#

VB.NET操作注册表代码:

1. Imports Microsoft.Win32.Registry   
2. Public Class frmMain   
3. Inherits System.Windows.Forms.Form   
4. Private Sub Button2_Click(ByVal sender As 
   System.Object, ByVal e As System.EventArgs) 
   Handles Button2.Click   
5. Me.Dispose(True)   
6. End Sub   
7. Private Sub Button1_Click(ByVal sender As 
   System.Object, ByVal e As System.EventArgs)
    Handles Button1.Click   
8. Dim reg As Microsoft.Win32.RegistryKey   
9. reg = CurrentUser.OpenSubKey("Software\Microsoft
   \Windows\CurrentVersion\Run", True)   
10. If reg.GetValue("test") <> "" Then   
11. MsgBox("改键值已经存在", MsgBoxStyle.Information, "提示")   
12. Else   
13. reg.SetValue("test", txtKeyValue.Text)   
14. MsgBox("设置成功!", MsgBoxStyle.Information, "提示")   
15. End If   
16. reg.Close()   
17. reg = Nothing   
18. End Sub   
19. Private Sub Button3_Click(ByVal sender As 
    System.Object, ByVal e As System.EventArgs) 
    Handles Button3.Click   
20. Dim reg As Microsoft.Win32.RegistryKey   
21. reg = CurrentUser.OpenSubKey("Software\
    Microsoft\Windows\CurrentVersion\Run", True)   
22. If reg.GetValue("test") <> "" Then   
23. reg.DeleteValue("test")   
24. MsgBox("已删除")   
25. Else   
26. MsgBox("不存在")   
27. End If   
28. reg.Close()   
29. reg = Nothing   
30. End Sub   
31. Private Sub chkAutoStart_CheckedChanged
    (ByVal sender As System.Object, ByVal e 
    As System.EventArgs) Handles chkAutoStart.
    CheckedChanged   
32. Dim regKey As Microsoft.Win32.RegistryKey   
33. regKey = CurrentUser.OpenSubKey("Software
    \Microsoft\Windows\CurrentVersion\Run", True)   
34. If chkAutoStart.Checked Then   
35. If regKey.GetValue("sjcatsoft") = "" Then   
36. regKey.SetValue("sjcatsoft", 
    Application.ExecutablePath)   
37. End If   
38. Else   
39. If regKey.GetValue("sjcatsoft") <> "" Then   
40. regKey.DeleteValue("sjcatsoft")   
41. End If   
42. End If   
43. regKey.Close()   
44. regKey = Nothing   
45. End Sub   
46. End Class  

VB.NET操作注册表的具体实现方式就为大家介绍到这里。