Imports Infragistics.Windows.DockManager
Imports Infragistics.Windows.DockManager.Events
Private Sub ContentPane_OptionsMenuOpening(ByVal sender As Object, ByVal e As PaneOptionsMenuOpeningEventArgs)
Dim cp As ContentPane = TryCast(e.OriginalSource, ContentPane)
If e.Items.Count > 0 Then
Dim sep As New Separator()
sep.SetResourceReference(Separator.StyleProperty, XamDockManager.MenuItemSeparatorStyleKey)
e.Items.Add(sep)
End If
' the OptionsMenuOpening event is raised when you right click on a
' pane's caption or tab item as well as when you click the window
' position menu item in the caption and allows you to add/remove
' items from the menu.
Dim mi As New MenuItem()
mi.Command = ApplicationCommands.Save
' to have the menu items use the same styling as the default
' menu items, we'll associate it with the same style that
' the dockmanager uses for its menu items
mi.SetResourceReference(MenuItem.StyleProperty, XamDockManager.MenuItemStyleKey)
e.Items.Add(mi)
End Sub
Private Sub CommandBinding_CanExecute(ByVal sender As Object, ByVal e As CanExecuteRoutedEventArgs)
' for the purposes of this demonstration, the save command
' associated with the binding that raises this event is always
' enabled
e.CanExecute = True
e.Handled = True
End Sub
Private Sub CommandBinding_Executed(ByVal sender As Object, ByVal e As ExecutedRoutedEventArgs)
' implement save functionality here
Dim dlg As New Microsoft.Win32.SaveFileDialog()
dlg.ShowDialog()
End Sub