VB.NET轻松操作注册表
发布时间：2020-12-17 08:04:41 所属栏目：百科 来源：网络整理
导读：在.NET中操作注册表,和VS STUDIO 时代,真是不可同日而语,.NET 之前的操作,要引入大量的 API 函数,含有键值类型,错误类型等,繁琐的要死,而.NET中,实现起来的简单程度,已经和 DELPHI 基本相同了,下面通过例子体验一下: 代码: ---------------------------------
|
在.NET中操作注册表,和VS STUDIO 时代,真是不可同日而语,.NET 之前的操作,要引入大量的 API 函数,含有键值类型,错误类型等,繁琐的要死,而.NET中,实现起来的简单程度,已经和 DELPHI 基本相同了,下面通过例子体验一下: 代码: ------------------------------------------------------------------------------------ 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("SoftwareMicrosoftWindowsCurrentVersionRun",True) If reg.GetValue("test") <> "" Then MsgBox("改键值已经存在",MsgBoxStyle.Information,"提示") Else reg.SetValue("test",txtKeyValue.Text) MsgBox("设置成功!","提示") 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("SoftwareMicrosoftWindowsCurrentVersionRun",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("SoftwareMicrosoftWindowsCurrentVersionRun",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 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |