日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

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

創(chuàng)新互聯(lián)專(zhuān)業(yè)提供四川聯(lián)通機(jī)房服務(wù)器托管服務(wù)，為用戶提供五星數(shù)據(jù)中心、電信、雙線接入解決方案，用戶可自行在線購(gòu)買(mǎi)四川聯(lián)通機(jī)房服務(wù)器托管服務(wù)，并享受7*24小時(shí)金牌售后服務(wù)。

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)方式就為大家介紹到這里。

本文標(biāo)題：VB.NET操作注冊(cè)表輕松上手
文章位置：http://www.dlmjj.cn/article/djpeehh.html