VB.NET中怎么操作注冊表

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

創(chuàng)新互聯-專業(yè)網站定制、快速模板網站建設、高性價比興安網站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式興安網站制作公司更省心,省錢,快速模板網站建設找我們，業(yè)務覆蓋興安地區(qū)。費用合理售后完善，十年實體公司更值得信賴。

VB.NET的出現可以說很大程度上改變了開發(fā)人員原有的擺弄些代碼方式，為編程人員帶來了一個良好的編程環(huán)境。對于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  

看完上述內容是否對您有幫助呢？如果還想對相關知識有進一步的了解或閱讀更多相關文章，請關注創(chuàng)新互聯行業(yè)資訊頻道，感謝您對創(chuàng)新互聯的支持。

分享名稱：VB.NET中怎么操作注冊表
標題路徑：http://bm7419.com/article18/jccpgp.html

成都網站建設公司_創(chuàng)新互聯，為您提供微信公眾號、商城網站、定制開發(fā)、ChatGPT、全網營銷推廣、企業(yè)網站制作

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯