在VB.NET中大家有沒有遇到過有關(guān)于Array的問題，VB.NET實(shí)例教程教你如何解決這個(gè)問題，大家快來嘗試一下吧。

VB.NET實(shí)例教程Array案例：

本實(shí)例需要項(xiàng)目引用：

Imports Microsoft.Win32  '用途 ： 注冊表操作  
Imports System.Security.AccessControl'用途 ： 訪問權(quán)限控制  

首先,對注冊表的鍵增加權(quán)限,細(xì)分起來共有11種可選的權(quán)限類型，它們對應(yīng)的參數(shù)如下：

Select Case ComboBox1.Text  
Case "完全控制"  
ObjRegRight = RegistryRights.FullControl  
Case "查詢數(shù)值"  
ObjRegRight = RegistryRights.QueryValues  
Case "設(shè)置數(shù)值"  
ObjRegRight = RegistryRights.SetValue  
Case "創(chuàng)建子項(xiàng)"  
ObjRegRight = RegistryRights.CreateSubKey  
Case "枚舉子項(xiàng)"  
ObjRegRight = RegistryRights.EnumerateSubKeys  
Case "通知"  
ObjRegRight = RegistryRights.Notify  
Case "創(chuàng)建鏈接"  
ObjRegRight = RegistryRights.CreateLink  
Case "刪除"  
ObjRegRight = RegistryRights.Delete   
Case "寫入DAC"  
ObjRegRight = RegistryRights.WriteKey  
Case "寫入所有者"  
ObjRegRight = RegistryRights.TakeOwnership  
Case "讀取控制"  
ObjRegRight = RegistryRights.ReadPermissions  
End Select 

而每個(gè)細(xì)分權(quán)限 又分"允許"和"拒絕"兩種訪問控制類型

Select Case ComboBox2.Text  
Case "允許"  
ObjRegAccess = AccessControlType.Allow  
Case "拒絕"  
ObjRegAccess = AccessControlType.Deny  
End Select 

以下為增加注冊表鍵權(quán)限的函數(shù)

以下兩函數(shù)中 Account代表系統(tǒng)nt帳戶  Rights和ControlType分別為上文提及的權(quán)限類型和訪問控制類型

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 

以下為移除注冊表鍵權(quán)限的函數(shù)

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實(shí)例教程建議大家在做注冊表編程調(diào)試的時(shí)候，采用虛擬機(jī)調(diào)試 或者備份好本機(jī)資料，注冊表一旦破壞或者修改不當(dāng)可能導(dǎo)致系統(tǒng)崩潰，切記！

【編輯推薦】

1. 深入分析VB.NET條件語句中的兩類
2. 五大類VB.NET運(yùn)算符全面介紹
3. 全面討論VB.NET申明Windows API函數(shù)
4. 剖析VB.NET平臺調(diào)用是如何執(zhí)行操作
5. 分享個(gè)人總結(jié)VB.NET多線程