Description

Display the access permissions form.

Syntax

dlg

Required. Object name, returned by Dim idlg As InputDlg = New InputDlg.

sName

Title of the dialog box.

accessAttr

access attribute.

sLabel

label

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

SetAccess