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

大家通過對VB.NET的學(xué)習(xí)，可以知道，這款編程語言的應(yīng)用范圍是非常廣泛的。下面就一起來分析一下VB.NET注冊表操作的一些技巧。其實(shí)，VB.NET注冊表操作是非常的簡單。我們可以用 microsoft.Win32 名稱空間的　下的　registry 類　和　　registryKey　類?！×硗狻y.Computer.Registry 也可以返回一個 Microsoft.Win32.Registry　類的實(shí)例。 #t#

創(chuàng)新互聯(lián)建站于2013年開始，先為南漳等服務(wù)建站，南漳等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為南漳企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

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

VB.NET注冊表操作１，返回或創(chuàng)建一個注冊表鍵

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

VB.NET注冊表操作２，刪除注冊表鍵

 
 
 

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

VB.NET注冊表操作3,創(chuàng)建或讀取注冊表項(xiàng)

 
 
 

  
  
  
Dim Key1 As Microsoft.Win32.RegistryKey   
  
  
  
Key1 = My.Computer.Registry.CurrentUser
 '返回當(dāng)前用戶鍵   
  
  
  
Dim Key2 As Microsoft.Win32.RegistryKey   
  
  
  
Key2 = Key1.OpenSubKey("northsnow",
 True) '返回當(dāng)前用戶鍵下的northsnow
鍵,如果想創(chuàng)建項(xiàng)，必須指定第二個參數(shù)為true   
  
  
  
If Key2 Is Nothing Then   
  
  
  
Key2 = Key1.CreateSubKey("northsnow") 
'如果鍵不存在就創(chuàng)建它   
  
  
  
End If  
 
 
 

 
 
 

  
  
  
'創(chuàng)建項(xiàng)，如果不存在就創(chuàng)建，如果存在則覆蓋   
  
  
  
Key2.SetValue("name", "塞北的雪")   
  
  
  
Key2.SetValue("sex", True)   
  
  
  
Key2.SetValue("age", 30)  
 
 
 

 
 
 

  
  
  
'返回項(xiàng)值   
  
  
  
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)  
 
 
 

 
 
 

  
  
  
'查驗(yàn)?zāi)硞€項(xiàng)是否存在   
  
  
  
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  
 
 
 

VB.NET注冊表操作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 
'返回當(dāng)前用戶鍵   
  
  
  
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   
  
  
  
'遍歷某鍵下的項(xiàng)   
  
  
  
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 
 
 
 

VB.NET注冊表操作的一些實(shí)際應(yīng)用技巧就為大家介紹到這里。

網(wǎng)頁名稱：VB.NET注冊表操作相關(guān)技巧解析
標(biāo)題路徑：http://www.5511xx.com/article/dpcpspp.html