<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
Public Shared myCmd As RoutedCommand
Shared 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
|
