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
|