文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
文本框中光标位置的获得
用VB导入导出你的IE收藏夹
VB应用程序访问SQL Server方法探讨
VB访问SQL Server数据库技术全揭密
自动上网抓数据的机器人
自己的IE——用VB制作浏览器
VB中如何保存Webbrowser中的整个页面..
在VB中该如何控制其它程序的弹出窗口..
保存webbrowser中的HTML内容
破译动网验证码的简单方法
轻松获取QQ密码
VB.NET获取硬盘序列号的方法
WEBBROWSER 技巧一(收藏)
VB自动登陆网络站点详解(二):Inet..
获取webbrowser控件网页的源码
WebBrowser控件说明
关于用VB做更漂亮的窗体的思考
VB中访问存储过程的几种办法
VB6中改变屏幕的分辨率和刷新频率
VB编写一个能显示百分比的自定义进度..
公农历转换VB类
VB.NET窗口渐淡关闭
使用VB实现邮箱自动注册(二):修改..
VB.NET轻松实现任务栏程序
VB.NET启动外部程序
利用vb实现图片上传
VB实现局域网内的文件传输
VB 一个Function传回多个值
在VB中实现多线程
VB 手机号码编码程序


技术教程 -> VB教程 ->  
VB.NET轻松操作注册表
来源:转载   人气:887   录入时间:2007-11-8
    在.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
   
   




Copyright(C)2007-2024 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987