' 创建第一个项。
SaveSetting("TestApp","Startup","FirstKey","First")
' 创建第一个子项。
SaveSetting("TestApp","FirstKey","FirstSubKey","FirstSub")
' 创建第二个子项。
SaveSetting("TestApp","FirstKey","SecondSubKey","SecondSub")
Try
' 写出第一个项的值。
Console.WriteLine ((GetSetting("TestApp","Startup","FirstKey"))
' 写出第一个项及其两个子项。
Console.WriteLine (GetAllSettings("TestApp","Startup"))
Catch e As ArgumentException
Catch e As Exception
Console.WriteLine (e.GetType.ToString)
Finally
End Try
DeleteSetting("TestApp","FirstKey","SecondSubKey")
Try
Console.WriteLine (GetSetting("TestApp","Startup","FirstKey"))
Console.WriteLine (GetAllSettings("TestApp","Startup"))
Catch e As ArgumentException
Catch e As Exception
Console.WriteLine (e.GetType.ToString)
Finally
End Try
使用内置注册表访问函数具有以下限制:只能访问位于 HKEY_CURRENT_USER\Software\VB and VBA Program Settings 下的注册表项。为此,必须登录到系统,因为 HKEY_CURRENT_USER 注册表项仅在登录到系统时才被激活。
Imports Microsoft.Win32
Dim regVersion As RegistryKey
Dim keyValue As String
keyValue = Software\\Microsoft\\TestApp\\1.0
regVersion = Registry.CurrentUser.OpenSubKey(keyValue, False)
Dim intVersion As Integer = 0
If (Not regVersion Is Nothing) Then
intVersion = regVersion.GetValue("Version", 0)
regVersion.Close()
End If
下面的示例将读取,递增,然后向 HKEY_CURRENT_USER 中写入一个 DWORD 值:
Imports Microsoft.Win32
Dim regVersion As RegistryKey
regVersion =
Registry.CurrentUser.OpenSubKey("SOFTWARE\\Microsoft\\TestApp\\1.0", True)
If regVersion Is Nothing Then
' 不存在该项,创建该项。
regVersion =
Registry.CurrentUser.CreateSubKey("SOFTWARE\\Microsoft\\TestApp\\1.0")
End If
Dim intVersion As Integer = 0
If (Not regVersion Is Nothing) Then
intVersion = regVersion.GetValue("Version", 0)
intVersion = intVersion + 1
regVersion.SetValue("Version", intVersion)
regVersion.Close()
End If