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  

看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注亿速云行业资讯频道，感谢您对亿速云的支持。