這篇文章將為大家詳細(xì)講解有關(guān)怎樣完成VB.NET讀寫注冊(cè)表，文章內(nèi)容質(zhì)量較高，因此小編分享給大家做個(gè)參考，希望大家閱讀完這篇文章后對(duì)相關(guān)知識(shí)有一定的了解。

成都創(chuàng)新互聯(lián)公司長(zhǎng)期為近1000家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為馬邊彝族企業(yè)提供專業(yè)的網(wǎng)站制作、成都網(wǎng)站制作，馬邊彝族網(wǎng)站改版等技術(shù)服務(wù)。擁有十年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

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

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

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

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 Key2 Is Nothing Then  
Key2 = Key1.CreateSubKey("northsnow") 
'如果鍵不存在就創(chuàng)建它  
End If 

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

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讀寫注冊(cè)表3,創(chuàng)建或讀取注冊(cè)表項(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)，
必須指定第二個(gè)參數(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)硞€(gè)項(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讀寫注冊(cè)表4,遍歷注冊(cè)表

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

Dim sb As New System.Text.StringBuilder 
'返回遍歷結(jié)果  
Dim sb2 As New System.Text.StringBuilder 
'返回讀取出錯(cuò)的注冊(cè)表鍵  
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  
'遍歷注冊(cè)表鍵樹  
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 

關(guān)于怎樣完成VB.NET讀寫注冊(cè)表就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，可以學(xué)到更多知識(shí)。如果覺得文章不錯(cuò)，可以把它分享出去讓更多的人看到。

網(wǎng)頁(yè)名稱：怎樣完成VB.NET讀寫注冊(cè)表
文章分享：http://jinyejixie.com/article42/iihiec.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站制作、外貿(mào)建站、網(wǎng)站設(shè)計(jì)、服務(wù)器托管、電子商務(wù)、軟件開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)