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操作注冊表的具體實現方式就為大家介紹到這里。