Description

Opens the designer for the selected objects as read-only.

Uses the HasSelectedObject function for enabler.

Syntax

Code

  ''' <summary>Open the designer for the selected objects R/O</summary>

  <ShellCommand(CanExecute:="HasSelectedObject")> _

  Public Sub ViewDesigner()

    Dim selectedObjects As IGenericAttrObjList = Main.GetSelectedObjects

    If selectedObjects IsNot Nothing Then

      If selectedObjects.Count > 3 Then

        If MsgBox(String.Format(My.Resources.STR_OpenMany, selectedObjects.Count), MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "GN4") <> vbYes Then Exit Sub

      End If

      For Each selectedObject In selectedObjects

        OpenDesigner(selectedObject.Id, OpenMode.ReadOnly, selectedObject.ObjectTypeName)

      Next

    End If

  End Sub