VB.NET中怎么操作注冊表

VB.NET中怎么操作注冊表，很多新手對此不是很清楚，為了幫助大家解決這個難題，下面小編將為大家詳細講解，有這方面需求的人可以來學習下，希望你能有所收獲。

VB.NET的出現可以說很大程度上改變了開發人員原有的擺弄些代碼方式，為編程人員帶來了一個良好的編程環境。對于VB.NET操作注冊表, 和VS STUDIO 時代,真是不可同日而語, .NET 之前的操作, 要引入大量的 API 函數,含有鍵值類型, 錯誤類型等, 繁瑣的要死, 而.NET中,實現起來的簡單程度,已經和 DELPHI 基本相同了,下面通過例子體驗一下:

• VB.NET壓縮ZIP文件實際方式解析

• 徹底解決VB.NET窗體繼承相關問題

• VB.NET使用MS Access技術指導

• VB.NET獲取硬盤信息操作方式總結概覽

• VB.NET序列化實現方式簡單介紹

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  

看完上述內容是否對您有幫助呢？如果還想對相關知識有進一步的了解或閱讀更多相關文章，請關注億速云行業資訊頻道，感謝您對億速云的支持。