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

本文向大家介紹VB.NET訪問注冊表，可能好多人還不了解VB.NET訪問注冊表，沒有關(guān)系，看完本文你肯定有不少收獲，希望本文能教會你更多東西。

目前創(chuàng)新互聯(lián)已為上1000+的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)站空間、網(wǎng)站托管運營、企業(yè)網(wǎng)站設(shè)計、霸州網(wǎng)站維護等服務(wù)，公司將堅持客戶導向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

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

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

1、返回或創(chuàng)建一個注冊表鍵

 
 
 

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

2、刪除注冊表鍵

 
 
 

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

3、創(chuàng)建或讀取注冊表項

 
 
 

  
  
  
Dim Key1 As Microsoft.Win32.RegistryKey  
  
  
  
Key1 = My.Computer.Registry.CurrentUser '返回當前用戶鍵  
  
  
  
Dim Key2 As Microsoft.Win32.RegistryKey  
  
  
  
Key2 = Key1.OpenSubKey("northsnow", True) '返回當前用戶鍵下的northsnow鍵,  
  
  
  
如果想創(chuàng)建項，必須指定第二個參數(shù)為true  
  
  
  
If Key2 Is Nothing Then  
  
  
  
Key2 = Key1.CreateSubKey("northsnow") '如果鍵不存在就創(chuàng)建它  
  
  
  
End If  
  
  
  
 
  
  
  
'創(chuàng)建項，如果不存在就創(chuàng)建，如果存在則覆蓋  
  
  
  
Key2.SetValue("name", "塞北的雪")  
  
  
  
Key2.SetValue("sex", True)  
  
  
  
Key2.SetValue("age", 30)  
  
  
  
'返回項值  
  
  
  
Dim sb As New System.Text.StringBuilder  
  
  
  
sb.AppendLine(Key2.GetValue("name"))  
  
  
  
sb.AppendLine(Key2.GetValue("sex"))  
  
  
  
sb.AppendLine(Key2.GetValue("age"))  
  
  
  
MsgBox(sb.ToString)  
  
  
  
'查驗?zāi)硞€項是否存在  
  
  
  
If (Key2.GetValue("name")) Is Nothing Then  
  
  
  
MsgBox("no")  
  
  
  
Else  
  
  
  
MsgBox("yes")  
  
  
  
End If  
  
  
  
 
  
  
  
If (Key2.GetValue("name2")) Is Nothing Then  
  
  
  
MsgBox("no")  
  
  
  
Else  
  
  
  
MsgBox("yes")  
  
  
  
End If  
  
  
  
 
  
  
  
'輸出  
  
  
  
' 塞北的雪  
  
  
  
'True  
  
  
  
'30  
  
  
  
'yes  
  
  
  
'no 
 
 
 

4、遍歷注冊表

這個也非常簡單，在窗體上放一個按鈕和兩個文本框，添加如下的代碼：

 
 
 

  
  
  
Dim sb As New System.Text.StringBuilder   
  
  
  
'返回遍歷結(jié)果  
  
  
  
Dim sb2 As New System.Text.StringBuilder   
  
  
  
'返回讀取出錯的注冊表鍵  
  
  
  
Private Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object,  
  
  
  
ByVal e As System.EventArgs) Handles Button3.Click  
  
  
  
Dim Key1 As Microsoft.Win32.RegistryKey  
  
  
  
Key1 = My.Computer.Registry.CurrentUser   
  
  
  
'返回當前用戶鍵  
  
  
  
If Not Key1 Is Nothing Then  
  
  
  
sb.AppendLine(Key1.Name)  
  
  
  
readValue(Key1)  
  
  
  
readReg(Key1)  
  
  
  
End If  
  
  
  
Me.TextBox1.Text = sb.ToString  
  
  
  
Me.TextBox2.Text = sb2.ToString  
  
  
  
End Sub  
  
  
  
 
  
  
  
'遍歷注冊表鍵樹  
  
  
  
Private Sub readReg()Sub readReg(ByVal r As Microsoft.Win32.RegistryKey)  
  
  
  
If r.SubKeyCount > 0 Then  
  
  
  
Dim keyName() As String  
  
  
  
Dim keyTemp As Microsoft.Win32.RegistryKey  
  
  
  
keyName = r.GetSubKeyNames  
  
  
  
Dim i As Integer  
  
  
  
For i = 0 To keyName.GetLength(0) - 1  
  
  
  
Try  
  
  
  
sb.AppendLine(keyName(i))  
  
  
  
keyTemp = r.OpenSubKey(keyName(i), True)  
  
  
  
readValue(keyTemp)  
  
  
  
readReg(keyTemp)  
  
  
  
Catch ex As Exception  
  
  
  
sb2.AppendLine(keyName(i))  
  
  
  
End Try  
  
  
  
Next  
  
  
  
End If  
  
  
  
End Sub  
  
  
  
 
  
  
  
'遍歷某鍵下的項  
  
  
  
Private Sub readValue()Sub readValue(ByVal r As Microsoft.Win32.RegistryKey)  
  
  
  
If r.ValueCount > 0 Then  
  
  
  
Dim valueName() As String  
  
  
  
Dim i As Integer  
  
  
  
valueName = r.GetValueNames  
  
  
  
For i = 0 To valueName.GetLength(0) - 1  
  
  
  
sb.AppendLine("####")  
  
  
  
sb.Append(r.Name)  
  
  
  
sb.Append("----")  
  
  
  
sb.Append(r.GetValue(valueName(i)).ToString)  
  
  
  
Next  
  
  
  
End If  
  
  
  
End Sub 
 
 
 

【編輯推薦】

1. 淺析VB.NET開發(fā)自動分頁
2. VB.NET ListView控件經(jīng)驗總結(jié)
3. 簡單講述VB.NET讀取INI
4. 簡要介紹VB System.Array類及其成員
5. 概括VB.NET獲取網(wǎng)卡地址的步驟

當前名稱：講解VB.NET訪問注冊表方法
URL標題：http://m.5511xx.com/article/dhchdjj.html