Simple input dialog

    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)

    If dlg.ShowDialog() Then

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

      Edition.GetEditionObj().State.SetModified()

    End If

Another example

    Dim dlg As New InputDlg

  dlg.Width = 350

  dlg.Title = My.Resources.IDS_PRD1 '"Page renumber"

 

  Dim cb As New InputDlg.Combo

    cb.AddItem(My.Resources.IDS_PRD2, 0)

    cb.AddItem(My.Resources.IDS_PRD3, 0)

    cb.AddItem(My.Resources.IDS_PRD4, 0)

 

    dlg.AddCombo(My.Resources.IDS_PRD5, cb, 0)

    dlg.AddInt(My.Resources.IDS_Value, 1)

 

    cb.Items.Clear()

    cb.AddItem(My.Resources.IDS_SelPages, 0)

    cb.AddItem(My.Resources.IDS_AllPages, 0)

    dlg.AddCombo(My.Resources.IDS_ApplyTo, cb, 0)

 

    If dlg.ShowDialog() Then

      Dim mode = dlg.GetComboIdx(0)

      Dim val = Math.Abs(dlg.GetItemValue(1))

      Dim apply = dlg.GetComboIdx(2)

 

      Dim delta = val

      Dim start = 0

      If mode = 0 Then

        delta = 0

        start = val

      End If

      Dim allpages As Boolean = apply = 1

      PageRenumberEx(delta, start, allpages)

    End If