Profile Picture

How to Modify Menu of NDrawingViewWithCommandBarsControl

Posted By Ashley Davy 3 Years Ago

How to Modify Menu of NDrawingViewWithCommandBarsControl

Author
Message
Ashley Davy
Question Posted 3 Years Ago
View Quick Profile
Forum Newbie

Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)

Group: Forum Members
Last Active: 3 Years Ago
Posts: 36, Visits: 119
I am migrating from Diagram .NET to Diagram NOV.   The code below is what I used to customize the menu of Diagram .NET.  I want to customize the menu the same way for Diagram NOV NDrawingViewWithCommandBarsControl.  I have looked at the examples but I cannot figure out how to access the menu and toolbars.  Can you provide me with an equivalent example based on the code below to customize the NDrawingViewWithCommandBarsControl.

Thanks,
Ashley



  NDiagramCommandBarsManager1.Toolbars(0).Hide()
      NDiagramCommandBarsManager1.Toolbars(1).Hide()
      NDiagramCommandBarsManager1.Toolbars(2).Hide()

      NDiagramCommandBarsManager1.Toolbars(3).Hide()
      NDiagramCommandBarsManager1.Toolbars(4).Hide()
      NDiagramCommandBarsManager1.Toolbars(5).Hide()

      NDiagramCommandBarsManager1.Toolbars(6).Hide()
      NDiagramCommandBarsManager1.Toolbars(7).Hide()





      NDiagramCommandBarsManager1.Toolbars(3).Show()
      NDiagramCommandBarsManager1.Toolbars(3).Moveable = False
      NDiagramCommandBarsManager1.Toolbars(3).AllowReset = False
      NDiagramCommandBarsManager1.Toolbars(3).HasPendantCommand = False

      ColHold = New Collection

      For Each X As Nevron.UI.WinForm.Controls.NCommand In NDiagramCommandBarsManager1.Toolbars(3).Commands

       If X.ToString.ToLower = "start arrowhead style..." Then
        ColHold.Add(X)
       End If

       If X.ToString.ToLower = "end arrowhead style..." Then
        ColHold.Add(X)
       End If

       If X.ToString.ToLower = "bridge style..." Then
        ColHold.Add(X)
       End If

       If X.ToString.ToLower = "interactivity style..." Then
        ColHold.Add(X)
       End If

      Next

      For Each X As Nevron.UI.WinForm.Controls.NCommand In ColHold

       NDiagramCommandBarsManager1.Toolbars(3).Commands.Remove(X)

      Next



      NDiagramCommandBarsManager1.Toolbars(6).Show()
      NDiagramCommandBarsManager1.Toolbars(6).Moveable = False
      NDiagramCommandBarsManager1.Toolbars(6).AllowReset = False
      NDiagramCommandBarsManager1.Toolbars(6).HasPendantCommand = False

      ColHold = New Collection

      For Each X As Nevron.UI.WinForm.Controls.NCommand In NDiagramCommandBarsManager1.Toolbars(6).Commands

       'If X.ToString.ToLower = "connector tool" Then
       '  ColHold.Add(X)
       'End If

      Next

      For Each X As Nevron.UI.WinForm.Controls.NCommand In ColHold

       NDiagramCommandBarsManager1.Toolbars(6).Commands.Remove(X)

      Next



      NDiagramCommandBarsManager1.Toolbars(4).Show()
      NDiagramCommandBarsManager1.Toolbars(4).Moveable = False
      NDiagramCommandBarsManager1.Toolbars(4).AllowReset = False
      NDiagramCommandBarsManager1.Toolbars(4).HasPendantCommand = False

      ColHold = New Collection

      For Each X As Nevron.UI.WinForm.Controls.NCommand In NDiagramCommandBarsManager1.Toolbars(4).Commands

       If X.ToString.ToLower = "connector tool" Then
        ColHold.Add(X)
       End If

      Next

      For Each X As Nevron.UI.WinForm.Controls.NCommand In ColHold

       NDiagramCommandBarsManager1.Toolbars(4).Commands.Remove(X)

      Next



      NDiagramCommandBarsManager1.Toolbars(2).Show()
      NDiagramCommandBarsManager1.Toolbars(2).Moveable = False
      NDiagramCommandBarsManager1.Toolbars(2).AllowReset = False
      NDiagramCommandBarsManager1.Toolbars(2).HasPendantCommand = False

      ColHold = New Collection

      For Each X As Nevron.UI.WinForm.Controls.NCommand In NDiagramCommandBarsManager1.Toolbars(2).Commands

       If X.ToString.ToLower = "pan and zoom" Then
        ColHold.Add(X)
       End If

       If X.ToString.ToLower = "property browser" Then
        ColHold.Add(X)
       End If

       If X.ToString.ToLower = "library browser" Then
        ColHold.Add(X)
       End If

       If X.ToString.ToLower = "status bar" Then
        ColHold.Add(X)
       End If

      Next

      For Each X As Nevron.UI.WinForm.Controls.NCommand In ColHold

       NDiagramCommandBarsManager1.Toolbars(2).Commands.Remove(X)

      Next



      NDiagramCommandBarsManager1.Toolbars(4).RowIndex = 1
      NDiagramCommandBarsManager1.Toolbars(2).RowIndex = 1
      NDiagramCommandBarsManager1.Toolbars(3).RowIndex = 2
      NDiagramCommandBarsManager1.Toolbars(6).RowIndex = 2


      Me.NDrawingView1.Dock = DockStyle.Fill





Similar Topics


Reading This Topic