Menu item action handler : Menu « Windows Presentation Foundation « VB.Net






Menu item action handler

Menu item action handler
     
<Window x:Class="WpfApplication1.Window1"
  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  Title="FlowDocReader Load/Save Sample" Width="640" Height="480">
  <Grid>
    <Grid.RowDefinitions>
      <RowDefinition Height="22"/>
      <RowDefinition/>
    </Grid.RowDefinitions>

    <Grid.ColumnDefinitions>
      <ColumnDefinition/>
    </Grid.ColumnDefinitions>

    <Menu Grid.Row="0">
      <MenuItem>
        <MenuItem.Header>File</MenuItem.Header>
        <MenuItem Click="LoadFile">
          <MenuItem.Header>Load</MenuItem.Header>
        </MenuItem>
        <MenuItem Click="SaveFile">
          <MenuItem.Header>Save As...</MenuItem.Header>
        </MenuItem>
        <MenuItem Click="Clear">
          <MenuItem.Header>Clear Content</MenuItem.Header>
        </MenuItem>
        <MenuItem Click="Exit">
          <MenuItem.Header>Exit</MenuItem.Header>
        </MenuItem>
      </MenuItem>
    </Menu>
    
    <FlowDocumentReader Name="FlowDocRdr" Grid.Row="1"/>
    
  </Grid>
</Window>

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Shapes
Imports System.Windows.Forms
Imports System.IO
Imports System.Windows.Markup

Namespace WpfApplication1

  Public Partial Class Window1
    Inherits Window

    Public Sub New()
      InitializeComponent()
    End Sub

    Private Sub LoadFile(sender As [Object], args As RoutedEventArgs)
      Console.WriteLine("load")
    End Sub

    Private Sub SaveFile(sender As [Object], args As RoutedEventArgs)
      Console.WriteLine("save")
    End Sub

    Private Sub Clear(sender As [Object], args As RoutedEventArgs)
      FlowDocRdr.Document = Nothing
    End Sub
    Private Sub [Exit](sender As [Object], args As RoutedEventArgs)
      Me.Close()
    End Sub
  End Class
End Namespace

   
    
    
    
    
  








Related examples in the same category

1.Mixed MenusMixed Menus
2.Sidebar MenuSidebar Menu
3.Put a Menu and toolbar on the top of a DockPanelPut a Menu and toolbar on the top of a DockPanel
4.Nesting content inside MenuItem.HeaderNesting content inside MenuItem.Header
5.Multiple command targetsMultiple command targets
6.Commands with a menu and text boxCommands with a menu and text box
7.Set Access key for Menu with underscoreSet Access key for Menu with underscore
8.Menu and MenuItemMenu and MenuItem
9.MenuItem Commands And EventsMenuItem Commands And Events
10.Display a Context Menu with OpacityDisplay a Context Menu with Opacity
11.MenuBar and ToolBarMenuBar and ToolBar
12.Add Menu to NavigationWindow ContentAdd Menu to NavigationWindow Content