成人免费xxxxx在线视频软件_久久精品久久久_亚洲国产精品久久久_天天色天天色_亚洲人成一区_欧美一级欧美三级在线观看

實例講解VB.NET訪問注冊表

開發 后端
這里介紹VB.NET訪問注冊表非常的簡單。我們可以用microsoft.Win32 名稱空間的下的registry類和registryKey類。

在向大家詳細介紹VB.NET訪問注冊表之前,首先讓大家了解下registry類和registryKey類,然后全面介紹VB.NET訪問注冊表。

VB.NET訪問注冊表非常的簡單。我們可以用microsoft.Win32 名稱空間的下的registry類和registryKey類。另外My.Computer.Registry 也可以返回一個Microsoft.Win32.Registry類的實例。

下面就舉幾個小例子來說明VB.NET訪問注冊表的方法。

1.返回或創建一個注冊表鍵

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

2.刪除注冊表鍵

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

3.創建或讀取注冊表項

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

4.遍歷注冊表

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

以上介紹VB.NET訪問注冊表。

【編輯推薦】

  1. 淺談VB.NET線程構造器
  2. 簡單分析VB.NET使用線程
  3. VB.NET List(T)編寫框架方法
  4. 簡單介紹VB.NET線程同步
  5. VB.NET聲明API詳細描述
責任編輯:佚名 來源: IT168
相關推薦

2009-10-16 09:40:54

VB.NET訪問注冊表

2010-01-11 18:40:03

VB.NET操作注冊表

2010-01-08 10:09:50

VB.NET注冊表操作

2009-11-10 17:31:38

VB.NET注冊表

2009-10-26 14:50:18

VB.NET遍歷注冊表

2010-01-18 13:57:38

VB.NET讀寫注冊表

2009-10-26 13:46:31

VB.NET注冊表權限

2010-01-14 16:54:56

VB.NET Impo

2010-01-11 16:04:10

VB.NET使用wit

2009-10-20 10:16:24

VB.NET COMB

2011-08-04 11:11:59

2010-01-18 18:20:49

VB.NET使用API

2009-10-13 14:42:30

VB.NET靜態成員

2009-10-14 17:21:47

VB.NET定制Win

2009-10-12 13:54:22

VB.NET Data

2009-10-23 13:10:14

VB.NET List

2009-10-15 11:42:05

VB.Net賦值語句

2009-10-10 17:06:09

VB和VB.NET

2010-01-19 18:24:29

VB.NET調用Win

2009-10-13 14:38:10

VB.NET訪問類型
點贊
收藏

51CTO技術棧公眾號

主站蜘蛛池模板: 欧美成人免费在线视频 | 伊人久久麻豆 | 亚洲精品乱码久久久久久按摩观 | 亚洲三区在线 | 国产线视频精品免费观看视频 | 欧美精品久久 | www久久国产 | 一区二区国产在线观看 | 亚洲精品电影在线 | 鲁视频| 国产精品99 | 97久久精品 | 视频一区二区中文字幕 | 日韩国产中文字幕 | 中文字幕av一区二区三区 | 欧美一级淫片免费视频黄 | www.中文字幕.com| 国产精品精品久久久 | 亚洲欧美日韩精品久久亚洲区 | 99欧美精品 | 羞羞网站在线免费观看 | 精品视频免费 | 日本色综合 | 国产乱码精品一区二区三区av | 日韩视频―中文字幕 | 午夜影院在线观看版 | 亚洲巨乳自拍在线视频 | 琪琪午夜伦伦电影福利片 | 国产精品久久久久久久久免费高清 | 日韩国产黄色片 | 亚洲精品一区二区三区蜜桃久 | 国产婷婷在线视频 | 天天综合网7799精品 | 亚洲第一区国产精品 | 亚洲天堂精品久久 | 欧美成人第一页 | 国产一区二区三区久久久久久久久 | 高清人人天天夜夜曰狠狠狠狠 | 日日夜夜影院 | 久久久久久91香蕉国产 | av在线播放网址 |