学习首页 百科 人生课堂 办公软件 英语学习 操作系统 故事会 编程资料 软件学习 设计

输入您的搜索字词 提交搜索表单

铭瑶网 >> 学习首页 >> 软件 >> VB.NET轻松操作注册表

标题：VB.NET轻松操作注册表

【字体： 大中小】 时间:2008-4-11 来源:互联网 作者:study

VB.NET轻松操作注册表

在.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("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