Description

Store the result of the access permissions form, created by AddAccess.

Syntax

idx

Required. Index of the field.

accessAttr

access attribute.

Example

  Public Overridable Sub EditAccess()

    Dim dlg As New InputDlg

    dlg.Width = 450

    dlg.Title = My.Resources.IDS_EA1 ' "Edition Access Permissions"

    dlg.AddAccess(My.Resources.IDS_Permissions, Edition.GetEditionObj().accessAttr, "Folders")

    If dlg.ShowDialog() Then

      dlg.SetAccess(0, Edition.GetEditionObj().accessAttr)

      Edition.GetEditionObj().State.SetModified()

    End If

  End Sub

See also

AddAccess