VB.NET中怎么操作注册表，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。
创新互联-专业网站定制、快速模板网站建设、高性价比兴安网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式兴安网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖兴安地区。费用合理售后完善，十年实体公司更值得信赖。
VB.NET的出现可以说很大程度上改变了开发人员原有的摆弄些代码方式，为编程人员带来了一个良好的编程环境。对于VB.NET操作注册表, 和VS STUDIO 时代,真是不可同日而语, .NET 之前的操作, 要引入大量的 API 函数,含有键值类型, 错误类型等, 繁琐的要死, 而.NET中,实现起来的简单程度,已经和 DELPHI 基本相同了,下面通过例子体验一下:
VB.NET压缩ZIP文件实际方式解析
彻底解决VB.NET窗体继承相关问题
VB.NET使用MS Access技术指导
VB.NET获取硬盘信息操作方式总结概览
VB.NET序列化实现方式简单介绍
VB.NET操作注册表代码:
Imports Microsoft.Win32.Registry
Public Class frmMain
Inherits System.Windows.Forms.Form
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Me.Dispose(True)
End Sub
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim reg As Microsoft.Win32.RegistryKey
reg = CurrentUser.OpenSubKey("Software\Microsoft
\Windows\CurrentVersion\Run", True)
If reg.GetValue("test") <> "" Then
MsgBox("改键值已经存在", MsgBoxStyle.Information, "提示")
Else
reg.SetValue("test", txtKeyValue.Text)
MsgBox("设置成功!", MsgBoxStyle.Information, "提示")
End If
reg.Close()
reg = Nothing
End Sub
Private Sub Button3_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
Dim reg As Microsoft.Win32.RegistryKey
reg = CurrentUser.OpenSubKey("Software\
Microsoft\Windows\CurrentVersion\Run", True)
If reg.GetValue("test") <> "" Then
reg.DeleteValue("test")
MsgBox("已删除")
Else
MsgBox("不存在")
End If
reg.Close()
reg = Nothing
End Sub
Private Sub chkAutoStart_CheckedChanged
(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles chkAutoStart.
CheckedChanged
Dim regKey As Microsoft.Win32.RegistryKey
regKey = CurrentUser.OpenSubKey("Software
\Microsoft\Windows\CurrentVersion\Run", True)
If chkAutoStart.Checked Then
If regKey.GetValue("sjcatsoft") = "" Then
regKey.SetValue("sjcatsoft",
Application.ExecutablePath)
End If
Else
If regKey.GetValue("sjcatsoft") <> "" Then
regKey.DeleteValue("sjcatsoft")
End If
End If
regKey.Close()
regKey = Nothing
End Sub
End Class
看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注创新互联行业资讯频道，感谢您对创新互联的支持。
