建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
講解VB.NET訪問注冊表方法
本文向大家介紹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)站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(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)
- '查驗某個項是否存在
- 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
【編輯推薦】
- 淺析VB.NET開發(fā)自動分頁
- VB.NET ListView控件經(jīng)驗總結(jié)
- 簡單講述VB.NET讀取INI
- 簡要介紹VB System.Array類及其成員
- 概括VB.NET獲取網(wǎng)卡地址的步驟
網(wǎng)頁標題：講解VB.NET訪問注冊表方法
當前地址：http://m.fisionsoft.com.cn/article/dhchdjj.html
