Create RoutedCommand from InputGestureCollection : RoutedCommand « Windows Presentation Foundation « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows Presentation Foundation
3. RoutedCommand

<Window x:Class="Commands.Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        Title="Commands">
<Grid>
    <Button VerticalAlignment="Top" 
      HorizontalAlignment="Stretch" 
      Height="27" 
      Click="ExecuteCommandClickEvent" 
      Name="BtnExecuteCommand">Execute Command
  </Button>
  
  </Grid>
</Window>

//File:Window.xaml.vb

Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Input

Namespace Commands
  Public Partial Class Window1
    Inherits Window

    Private myCmd As RoutedCommand

    Private Sub New()
      Dim myInputs As New InputGestureCollection()
      myInputs.Add(New KeyGesture(Key.G, ModifierKeys.Control Or ModifierKeys.Shift))
      myCmd = New RoutedCommand("Go", GetType(Window1), myInputs)
    End Sub

    Private Sub ExecuteCommandClickEvent(sender As Object, e As RoutedEventArgs)
      myCmd.Execute(sender, Nothing)
    End Sub
  End Class
End Namespace

16.92.RoutedCommand
	16.92.1.	Create a custom RoutedCommand, the CommandBinding objects, and the KeyBinding objects in code.
	16.92.2.	Convert RoutedEventArgs.OriginalSource to event sender
	16.92.3.	RoutedEvents: Button Mouse Up Event
	16.92.4.	RoutedEvents: Drag And Drop
	16.92.5.	RoutedEvents: Focus event
	16.92.6.	RoutedEvents: Key Modifiers
	16.92.7.	RoutedEvents: Key Press Events
	16.92.8.	RoutedEvents: Mouse Position
	16.92.9.	Bubble routed events, and write an event handler for a routed event.
	16.92.10.	Get RoutedEvent Name
	16.92.11.	Create RoutedCommand from InputGestureCollection
	16.92.12.	RoutedEvents Only Numbers
	16.92.13.	Routed Event Demo