<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
|
