FAQs: 在VB.NET 中怎么读写注册表？
问题
-
为了帮助大家更好地学习 Visual Basic技术，微软论坛技术支持团队编辑了一些列的 "Visual Basic 常见问题及解答" 精华帖。
本帖的主题是： 在VB.NET 中怎么读写注册表？
如果您觉得这个帖子对您的学习、工作有所帮助，请再把这个帖子分享给你的同学、同事和朋友。
如果您想阅读更多的 "Visual Basic 常见问题及解答"，请打开索引页面：
http://social.msdn.microsoft.com/Forums/zh-CN/vbasiczhchs/thread/c9ab4b8e-99dc-49a2-bcea-30f3ecc3c3b7
如果您对我们的论坛在线支持服务有任何的意见或建议，请通过邮件告诉我们。
立刻免费下载 MSDN 论坛好帮手
答案
-
可以通过Microsoft.Win32.Registry 类实现：
1） 创建一个Subkey
Imports Microsoft.Win32
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
regKey.CreateSubKey("MyApp")
regKey.Close()
End Sub
End Class
以上的代码创建了一个Subkey ，名字是MyApp，在HKLM\Software注册表下。注意，第二个参数是“TRUE”，代表可以改写的。你也可以用“False”，如果你只想读取数据。
2） 读和写注册表值
Imports Microsoft.Win32
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim regKey As RegistryKey
Dim ver As Decimal
regKey = Registry.LocalMachine.OpenSubKey("Software\MyApp", True)
regKey.SetValue("AppName", "MyRegApp")
ver = regKey.GetValue("Version", 0.0)
If ver < 1.1 Then
regKey.SetValue("Version", 1.1)
End If
regKey.Close()
End Sub
End Class
上面的代码创建了2个值： Appname 和 Version,并分别赋值：MyRegApp 和1.1。
3） 删除一个Subkey
Imports Microsoft.Win32
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("Software", True)
regKey.DeleteSubKey("MyApp", True)
regKey.Close()
End Sub
End Class
上面的代码删除了subkey和它的所有值。
更多详细资料：
http://www.codeproject.com/KB/vb/registry_with_vb.aspx
http://social.msdn.microsoft.com/forums/en-US/vbgeneral/thread/5b22e94c-37a9-4be5-ad55-3d9229220194/
如果您对我们的论坛在线支持服务有任何的意见或建议，请通过邮件告诉我们。
- 已标记为答案 微软论坛技术支持团队 2011年3月3日 2:44
