VB.NET的出現(xiàn)可以說很大程度上改變了開發(fā)人員原有的擺弄些代碼方式，為編程人員帶來了一個(gè)良好的編程環(huán)境。對(duì)于VB.NET操作注冊(cè)表, 和VS STUDIO 時(shí)代,真是不可同日而語(yǔ), .NET 之前的操作, 要引入大量的 API 函數(shù),含有鍵值類型, 錯(cuò)誤類型等, 繁瑣的要死, 而.NET中,實(shí)現(xiàn)起來的簡(jiǎn)單程度,已經(jīng)和 DELPHI 基本相同了,下面通過例子體驗(yàn)一下: #t#

VB.NET操作注冊(cè)表代碼:

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("改鍵值已經(jīng)存在", MsgBoxStyle.Information, "提示")   
12. Else   
13. reg.SetValue("test", txtKeyValue.Text)   
14. MsgBox("設(shè)置成功!", 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操作注冊(cè)表的具體實(shí)現(xiàn)方式就為大家介紹到這里。