VB.NET实例教程对关于Array问题的解决

在VB.NET中大家有没有遇到过有关于Array的问题，VB.NET实例教程教你如何解决这个问题，大家快来尝试一下吧。

成都创新互联，为您提供成都网站建设、重庆网站制作、网站营销推广、网站开发设计，对服务成都除甲醛等多个行业拥有丰富的网站建设及推广经验。成都创新互联网站建设公司成立于2013年,提供专业网站制作报价服务,我们深知市场的竞争激烈，认真对待每位客户，为客户提供赏心悦目的作品。与客户共同发展进步，是我们永远的责任！

VB.NET实例教程Array案例：

本实例需要项目引用：

 
 
 
  
  
  Imports Microsoft.Win32  '用途 ： 注册表操作  
  
  
  Imports System.Security.AccessControl'用途 ： 访问权限控制

首先,对注册表的键增加权限,细分起来共有11种可选的权限类型，它们对应的参数如下：

 
 
 
  
  
  Select Case ComboBox1.Text  
  
  
  Case "完全控制"  
  
  
  ObjRegRight = RegistryRights.FullControl  
  
  
  Case "查询数值"  
  
  
  ObjRegRight = RegistryRights.QueryValues  
  
  
  Case "设置数值"  
  
  
  ObjRegRight = RegistryRights.SetValue  
  
  
  Case "创建子项"  
  
  
  ObjRegRight = RegistryRights.CreateSubKey  
  
  
  Case "枚举子项"  
  
  
  ObjRegRight = RegistryRights.EnumerateSubKeys  
  
  
  Case "通知"  
  
  
  ObjRegRight = RegistryRights.Notify  
  
  
  Case "创建链接"  
  
  
  ObjRegRight = RegistryRights.CreateLink  
  
  
  Case "删除"  
  
  
  ObjRegRight = RegistryRights.Delete   
  
  
  Case "写入DAC"  
  
  
  ObjRegRight = RegistryRights.WriteKey  
  
  
  Case "写入所有者"  
  
  
  ObjRegRight = RegistryRights.TakeOwnership  
  
  
  Case "读取控制"  
  
  
  ObjRegRight = RegistryRights.ReadPermissions  
  
  
  End Select

而每个细分权限又分"允许"和"拒绝"两种访问控制类型

 
 
 
  
  
  Select Case ComboBox2.Text  
  
  
  Case "允许"  
  
  
  ObjRegAccess = AccessControlType.Allow  
  
  
  Case "拒绝"  
  
  
  ObjRegAccess = AccessControlType.Deny  
  
  
  End Select

以下为增加注册表键权限的函数

以下两函数中 Account代表系统nt帐户 Rights和ControlType分别为上文提及的权限类型和访问控制类型

 
 
 
  
  
  Private Sub AddRegistrySecurity(ByVal Str_FileName As String, ByVal Account As String, ByVal Rights As RegistryRights, ByVal ControlType As AccessControlType)  
  
  
  Dim RegKey As RegistryRegistryKey = Registry.CurrentUser.CreateSubKey("此处填写具体键地址")  
  
  
  Dim RegkeyAcl As RegistrySecurity = RegKey.GetAccessControl()  
  
  
  Dim AccessRule As RegistryAccessRule = New RegistryAccessRule(Account, Rights, ControlType)  
  
  
  RegkeyAcl.AddAccessRule(AccessRule)  
  
  
  RegKey.SetAccessControl(RegkeyAcl)  
  
  
  RegKey.Close()  
  
  
  End Sub

以下为移除注册表键权限的函数

 
 
 
  
  
  Private Sub RemoveRegistrySecurity(ByVal Str_FileName As String, ByVal Account As String, ByVal Rights As RegistryRights, ByVal ControlType As AccessControlType)  
  
  
  Dim RegKey As RegistryRegistryKey = Registry.CurrentUser.CreateSubKey("此处填写具体键地址")  
  
  
  Dim RegkeyAcl As RegistrySecurity = RegKey.GetAccessControl()  
  
  
  Dim AccessRule As RegistryAccessRule = New RegistryAccessRule(Account, Rights, ControlType)  
  
  
  RegkeyAcl.RemoveAccessRule(AccessRule)  
  
  
  RegKey.SetAccessControl(RegkeyAcl)  
  
  
  RegKey.Close()  
  
  
  End Sub

VB.NET实例教程建议大家在做注册表编程调试的时候，采用虚拟机调试或者备份好本机资料，注册表一旦破坏或者修改不当可能导致系统崩溃，切记！

当前名称：VB.NET实例教程对关于Array问题的解决
文章路径：http://www.mswzjz.cn/qtweb/news38/402088.html

攀枝花网站建设、攀枝花网站运维推广公司-贝锐智能，是专注品牌与效果的网络营销公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：贝锐智能

贝锐智能技术为您推荐以下文章