建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
四步完成VB.NET讀寫注冊表
程序員在選擇使用何種編程語言來幫助他們實現(xiàn)自己的程序開發(fā)的時候，首先考慮的因素就是實用，靈活，效率高的語言。而VB.NET就是這樣一款比較適合的編程語言。比如，VB.NET讀寫注冊表就變得非常的簡單。我們可以用 microsoft.Win32 名稱空間的 下的registry 類和registryKey類?！×硗狻y.Computer.Registry 也可以返回一個 Microsoft.Win32.Registry 類的實例。
為略陽等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù)，及略陽網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為做網(wǎng)站、網(wǎng)站設(shè)計、略陽網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！
下面就舉幾個小例子來說明VB.NET讀寫注冊表的方法。
VB.NET讀寫注冊表１，返回或創(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
VB.NET讀寫注冊表２，刪除注冊表鍵
- 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
VB.NET讀寫注冊表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)
- '查驗某個項是否存在
- 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
'返回當前用戶鍵- 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
VB.NET讀寫注冊表的相關(guān)操作方法就為大家介紹到這里。
【編輯推薦】
- VB.NET條件分支語句應用方法概述
- VB.NET控件數(shù)組正確使用方法分析
- VB.NET默認屬性適用規(guī)則介紹
- VB.NET網(wǎng)頁計數(shù)器代碼編寫方法介紹
- VB.NET基本函數(shù)內(nèi)容概述
網(wǎng)站欄目：四步完成VB.NET讀寫注冊表
轉(zhuǎn)載來于：http://www.dlmjj.cn/article/dpsdgee.html
