Mega Code Archive

 
Categories / VB.Net Tutorial / WPF
 

ToolBar and event handler

<Window x: Class="Commands.TwoDocument"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     Title="TwoDocument" Height="300" Width="300">   <Window.Resources>     <CommandBinding x:Key="binding" Command="ApplicationCommands.Save" Executed="SaveCommand" CanExecute="SaveCommand_CanExecute" />   </Window.Resources>   <Grid>     <Grid.RowDefinitions>       <RowDefinition Height="Auto"></RowDefinition>       <RowDefinition></RowDefinition>     </Grid.RowDefinitions>     <ToolBarTray Grid.Row="1">       <ToolBar>         <Button Command="New">New</Button>         <Button Command="Open">Open</Button>         <Button Command="Save">Save</Button>       </ToolBar>       <ToolBar>         <Button Command="Cut">Cut</Button>         <Button Command="Copy">Copy</Button>         <Button Command="Paste">Paste</Button>       </ToolBar>     </ToolBarTray>     <TextBox Margin="5" Grid.Row="2" TextWrapping="Wrap" AcceptsReturn="True" TextChanged="txt_TextChanged">       <TextBox.CommandBindings>         <StaticResource ResourceKey="binding"></StaticResource>       </TextBox.CommandBindings>            </TextBox>   </Grid> </Window> //File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Text Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Media.Imaging Imports System.Windows.Shapes Namespace Commands   Public Partial Class TwoDocument     Inherits System.Windows.Window     Public Sub New()       InitializeComponent()     End Sub     Private Sub SaveCommand(sender As Object, e As ExecutedRoutedEventArgs)     End Sub     Private Sub txt_TextChanged(sender As Object, e As RoutedEventArgs)     End Sub     Private Sub SaveCommand_CanExecute(sender As Object, e As CanExecuteRoutedEventArgs)       e.CanExecute = False     End Sub   End Class End Namespace