VB.NET 轻松操作注册表

转载 2004年10月29日 12:24:00
在.NET中操作注册表, 和VS STUDIO 时代,真是不可同日而语, .NET 之前的操作, 要引入大量的 API 函数,含有键值类型, 错误类型等, 繁琐的要死, 而.NET中,实现起来的简单程度,已经和 DELPHI 基本相同了,下面通过例子体验一下:

registry.gif

代码:
------------------------------------------------------------------------------------
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

VB.NET 操作注册表的方法

  • 2012年02月07日 22:02
  • 464KB
  • 下载

利用VB.NET访问注册表

利用VB.NET访问注册表 译者注:访问注册表的例子比较多,然而通过VB.NET访问注册表的例子并不多,本文翻译了一篇MSDN上的利用VB.NET存取注册表的例子,挺详细也挺全面的。 ( http:/...
  • nfs21cn
  • nfs21cn
  • 2004年03月15日 09:16
  • 1117

vb.net注册表基本操作

vb.net提供了microsoft.win32类,下面有三个子类,全是针对注册表的,Microsoft.Win32.RegistryKey、Microsoft.Win32.Registry、Micr...
  • u014189392
  • u014189392
  • 2017年09月23日 14:35
  • 305

vb.net操作注册表(增加 修改 删除 查询)

vb.net操作注册表(增加 修改 删除 查询)增加 Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMa...
  • ITshu
  • ITshu
  • 2009年05月25日 17:54
  • 3272

VB.NET中访问注册表

  vb.net中访问注册表变得非常的简单。我们可以用  microsoft.Win32 名称空间的 下的 registry 类 和  registryKey 类。 另外 My.Computer.Re...
  • precipitant
  • precipitant
  • 2006年12月27日 19:43
  • 2836

个人记录_vb.net注册表读写

 VB.NET中访问注册表   vb.net中访问注册表变得非常的简单。我们可以用  microsoft.Win32 名称空间的 下的 registry 类 和  registryKey 类。 另外 ...
  • validjin
  • validjin
  • 2006年12月28日 09:21
  • 1198

VB中如何实现注册表的读写

毫不夸张的说,注册表相当于Windows的“心”,几乎所有的Windows应用程序都毫不例外的要在这里边“安家筑巢”,如果你也用VB编写了一个程序,是不是也想在注册表里占有一席之地呢(即使刚才没有,现...
  • pingyou
  • pingyou
  • 2005年05月26日 19:51
  • 1351

VB-读写注册表 程序

Public Function SysRegControl(Optional ByVal RootKey As RegRootKey = regHKEY_LOCAL_MACHINE, Optional...
  • boovo
  • boovo
  • 2006年03月15日 21:49
  • 1750

VB.NET轻松操作注册表

在.NET中操作注册表, 和VS STUDIO 时代,真是不可同日而语, .NET 之前的操作, 要引入大量的 API 函数,含有键值类型, 错误类型等, 繁琐的要死, 而.NET中,实现起来的简单程...
  • action20
  • action20
  • 2013年11月25日 16:45
  • 510

VB.NET 操作注册表

Imports Microsoft.Win32.RegistryPublic Class Reg    Inherits System.Windows.Forms.Form#Region " Wind...
  • hgxl
  • hgxl
  • 2005年01月28日 15:40
  • 403
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB.NET 轻松操作注册表
举报原因:
原因补充:

(最多只允许输入30个字)