日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢(xún)
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
四步完成VB.NET讀寫(xiě)注冊(cè)表

程序員在選擇使用何種編程語(yǔ)言來(lái)幫助他們實(shí)現(xiàn)自己的程序開(kāi)發(fā)的時(shí)候，首先考慮的因素就是實(shí)用，靈活，效率高的語(yǔ)言。而VB.NET就是這樣一款比較適合的編程語(yǔ)言。比如，VB.NET讀寫(xiě)注冊(cè)表就變得非常的簡(jiǎn)單。我們可以用 microsoft.Win32 名稱(chēng)空間的　下的registry 類(lèi)和registryKey類(lèi)?！×硗狻y.Computer.Registry 也可以返回一個(gè) Microsoft.Win32.Registry　類(lèi)的實(shí)例。

為略陽(yáng)等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及略陽(yáng)網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為做網(wǎng)站、網(wǎng)站設(shè)計(jì)、略陽(yáng)網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專(zhuān)業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

下面就舉幾個(gè)小例子來(lái)說(shuō)明VB.NET讀寫(xiě)注冊(cè)表的方法。

VB.NET讀寫(xiě)注冊(cè)表１，返回或創(chuàng)建一個(gè)注冊(cè)表鍵

 
 
 
      
  
  
  1. Dim Key1 As Microsoft.Win32.
    RegistryKey  
    2.   
  
  
  2. Key1 = My.Computer.Registry.
    CurrentUser '返回當(dāng)前用戶鍵  
    3.   
  
  
  3. Dim Key2 As Microsoft.Win32.
    RegistryKey  
    4.   
  
  
  4. Key2 = Key1.OpenSubKey("northsnow") 
    '返回當(dāng)前用戶鍵下的northsnow鍵  
    5.   
  
  
  5. If Key2 Is Nothing Then  
    6.   
  
  
  6. Key2 = Key1.CreateSubKey("northsnow") 
    '如果鍵不存在就創(chuàng)建它  
    7.   
  
  
  7. End If 
    8.

VB.NET讀寫(xiě)注冊(cè)表２，刪除注冊(cè)表鍵

 
 
 
      
  
  
  1. Dim Key1 As Microsoft.Win32.
    RegistryKey  
    2.   
  
  
  2. Key1 = My.Computer.Registry.
    CurrentUser '返回當(dāng)前用戶鍵  
    3.   
  
  
  3. Dim Key2 As Microsoft.Win32.
    RegistryKey  
    4.   
  
  
  4. Key2 = Key1.OpenSubKey("northsnow")
     '返回當(dāng)前用戶鍵下的northsnow鍵  
    5.   
  
  
  5. If Not Key2 Is Nothing Then  
    6.   
  
  
  6. Key1.DeleteSubKey("northsnow") 
    '如果鍵不存在就創(chuàng)建它  
    7.   
  
  
  7. End If 
    8.

VB.NET讀寫(xiě)注冊(cè)表3,創(chuàng)建或讀取注冊(cè)表項(xiàng)

 
 
 
      
  
  
  1. Dim Key1 As Microsoft.Win32.RegistryKey  
    2.   
  
  
  2. Key1 = My.Computer.Registry.CurrentUser 
    '返回當(dāng)前用戶鍵  
    3.   
  
  
  3. Dim Key2 As Microsoft.Win32.RegistryKey  
    4.   
  
  
  4. Key2 = Key1.OpenSubKey("northsnow", True) 
    '返回當(dāng)前用戶鍵下的northsnow鍵,如果想創(chuàng)建項(xiàng)，
    必須指定第二個(gè)參數(shù)為true  
    5.   
  
  
  5. If Key2 Is Nothing Then  
    6.   
  
  
  6. Key2 = Key1.CreateSubKey("northsnow") 
    '如果鍵不存在就創(chuàng)建它  
    7.   
  
  
  7. End If  
    8.   
  
  
  8. '創(chuàng)建項(xiàng)，如果不存在就創(chuàng)建，如果存在則覆蓋  
    9.   
  
  
  9. Key2.SetValue("name", "塞北的雪")  
    10.   
  
  
  10. Key2.SetValue("sex", True)  
    11.   
  
  
  11. Key2.SetValue("age", 30)  
    12.   
  
  
  12. '返回項(xiàng)值  
    13.   
  
  
  13. Dim sb As New System.Text.StringBuilder  
    14.   
  
  
  14. sb.AppendLine(Key2.GetValue("name"))  
    15.   
  
  
  15. sb.AppendLine(Key2.GetValue("sex"))  
    16.   
  
  
  16. sb.AppendLine(Key2.GetValue("age"))  
    17.   
  
  
  17. MsgBox(sb.ToString)  
    18.   
  
  
  18. '查驗(yàn)?zāi)硞€(gè)項(xiàng)是否存在  
    19.   
  
  
  19. If (Key2.GetValue("name")) Is Nothing Then  
    20.   
  
  
  20. MsgBox("no")  
    21.   
  
  
  21. Else  
    22.   
  
  
  22. MsgBox("yes")  
    23.   
  
  
  23. End If  
    24.   
  
  
  24. If (Key2.GetValue("name2")) Is Nothing Then  
    25.   
  
  
  25. MsgBox("no")  
    26.   
  
  
  26. Else  
    27.   
  
  
  27. MsgBox("yes")  
    28.   
  
  
  28. End If  
    29.   
  
  
  29. '輸出   
    30.   
  
  
  30. ' 塞北的雪  
    31.   
  
  
  31. 'True  
    32.   
  
  
  32. '30  
    33.   
  
  
  33. 'yes  
    34.   
  
  
  34. 'no 
    35.

VB.NET讀寫(xiě)注冊(cè)表4,遍歷注冊(cè)表

這個(gè)也非常簡(jiǎn)單，在窗體上放一個(gè)按鈕和兩個(gè)文本框，添加如下的代碼

 
 
 
      
  
  
  1. Dim sb As New System.Text.StringBuilder 
    '返回遍歷結(jié)果  
    2.   
  
  
  2. Dim sb2 As New System.Text.StringBuilder 
    '返回讀取出錯(cuò)的注冊(cè)表鍵  
    3.   
  
  
  3. Private Sub Button3_Click()Sub Button3_
    Click(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles 
    Button3.Click  
    4.   
  
  
  4. Dim Key1 As Microsoft.Win32.RegistryKey  
    5.   
  
  
  5. Key1 = My.Computer.Registry.CurrentUser 
    '返回當(dāng)前用戶鍵  
    6.   
  
  
  6. If Not Key1 Is Nothing Then  
    7.   
  
  
  7. sb.AppendLine(Key1.Name)  
    8.   
  
  
  8. readValue(Key1)  
    9.   
  
  
  9. readReg(Key1)  
    10.   
  
  
  10. End If  
    11.   
  
  
  11. Me.TextBox1.Text = sb.ToString  
    12.   
  
  
  12. Me.TextBox2.Text = sb2.ToString  
    13.   
  
  
  13. End Sub  
    14.   
  
  
  14. '遍歷注冊(cè)表鍵樹(shù)  
    15.   
  
  
  15. Private Sub readReg()Sub readReg(ByVal 
    r As Microsoft.Win32.RegistryKey)  
    16.   
  
  
  16. If r.SubKeyCount > 0 Then  
    17.   
  
  
  17. Dim keyName() As String  
    18.   
  
  
  18. Dim keyTemp As Microsoft.Win32.RegistryKey  
    19.   
  
  
  19. keyName = r.GetSubKeyNames  
    20.   
  
  
  20. Dim i As Integer  
    21.   
  
  
  21. For i = 0 To keyName.GetLength(0) - 1  
    22.   
  
  
  22. Try  
    23.   
  
  
  23. sb.AppendLine(keyName(i))  
    24.   
  
  
  24. keyTemp = r.OpenSubKey(keyName(i), True)  
    25.   
  
  
  25. readValue(keyTemp)  
    26.   
  
  
  26. readReg(keyTemp)  
    27.   
  
  
  27. Catch ex As Exception  
    28.   
  
  
  28. sb2.AppendLine(keyName(i))  
    29.   
  
  
  29. End Try  
    30.   
  
  
  30. Next  
    31.   
  
  
  31. End If  
    32.   
  
  
  32. End Sub  
    33.   
  
  
  33. '遍歷某鍵下的項(xiàng)  
    34.   
  
  
  34. Private Sub readValue()Sub readValue(ByVal
     r As Microsoft.Win32.RegistryKey)  
    35.   
  
  
  35. If r.ValueCount > 0 Then  
    36.   
  
  
  36. Dim valueName() As String  
    37.   
  
  
  37. Dim i As Integer  
    38.   
  
  
  38. valueName = r.GetValueNames  
    39.   
  
  
  39. For i = 0 To valueName.GetLength(0) - 1  
    40.   
  
  
  40. sb.AppendLine("####")  
    41.   
  
  
  41. sb.Append(r.Name)  
    42.   
  
  
  42. sb.Append("----")  
    43.   
  
  
  43. sb.Append(r.GetValue(valueName(i)).ToString)  
    44.   
  
  
  44. Next  
    45.   
  
  
  45. End If  
    46.   
  
  
  46. End Sub 
    47.

VB.NET讀寫(xiě)注冊(cè)表的相關(guān)操作方法就為大家介紹到這里。

【編輯推薦】

  1. VB.NET條件分支語(yǔ)句應(yīng)用方法概述
  2. VB.NET控件數(shù)組正確使用方法分析
  3. VB.NET默認(rèn)屬性適用規(guī)則介紹
  4. VB.NET網(wǎng)頁(yè)計(jì)數(shù)器代碼編寫(xiě)方法介紹
  5. VB.NET基本函數(shù)內(nèi)容概述

新聞名稱(chēng)：四步完成VB.NET讀寫(xiě)注冊(cè)表
瀏覽地址：http://www.5511xx.com/article/dpsdgee.html