次の方法で共有


ResourcePermissionBase.AddPermissionAccess メソッド

定義

アクセス許可にアクセス許可エントリを追加します。

protected:
 void AddPermissionAccess(System::Security::Permissions::ResourcePermissionBaseEntry ^ entry);
protected void AddPermissionAccess (System.Security.Permissions.ResourcePermissionBaseEntry entry);
member this.AddPermissionAccess : System.Security.Permissions.ResourcePermissionBaseEntry -> unit
Protected Sub AddPermissionAccess (entry As ResourcePermissionBaseEntry)

パラメーター

例外

指定された ResourcePermissionBaseEntrynull です。

PermissionAccessPath プロパティ内の要素の数が、TagNames プロパティ内の要素の数と等しくありません。

次の例は、クラスの初期化中にメソッドを AddPermissionAccess 使用してアクセス許可アクセス エントリを追加する方法を示しています。 このコード例は、ResourcePermissionBase クラスのために提供されている大規模な例の一部です。

MailslotPermission( MailslotPermissionAccess permissionAccess, String^ name, String^ machineName )
{
   SetNames();
   this->AddPermissionAccess( gcnew MailslotPermissionEntry( permissionAccess,name,machineName ) );
}

MailslotPermission( array<MailslotPermissionEntry^>^permissionAccessEntries )
{
   SetNames();
   if ( permissionAccessEntries == nullptr )
         throw gcnew ArgumentNullException( "permissionAccessEntries" );

   for ( int index = 0; index < permissionAccessEntries->Length; ++index )
      this->AddPermissionAccess( permissionAccessEntries[ index ] );
}
public MailslotPermission(MailslotPermissionAccess permissionAccess, string name, string machineName)
{
    SetNames();
    this.AddPermissionAccess(new MailslotPermissionEntry(permissionAccess, name, machineName));
}

public MailslotPermission(MailslotPermissionEntry[] permissionAccessEntries)
{
    SetNames();
    if (permissionAccessEntries == null)
        throw new ArgumentNullException("permissionAccessEntries");

    for (int index = 0; index < permissionAccessEntries.Length; ++index)
        this.AddPermissionAccess(permissionAccessEntries[index]);
}
Public Sub New(ByVal permissionAccess As MailslotPermissionAccess, ByVal name As String, ByVal machineName1 As String)
    SetNames()
    Me.AddPermissionAccess(New MailslotPermissionEntry(permissionAccess, name, machineName1))
End Sub


Public Sub New(ByVal permissionAccessEntries() As MailslotPermissionEntry)
    SetNames()
    If permissionAccessEntries Is Nothing Then
        Throw New ArgumentNullException("permissionAccessEntries")
    End If
    Dim index As Integer

    While index < permissionAccessEntries.Length
        Me.AddPermissionAccess(permissionAccessEntries(index))
    End While
End Sub

適用対象

こちらもご覧ください