Mega Code Archive
Close a window with Escape key pressed
//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.Shapes
Imports System.Windows.Media.Animation
Namespace _360Timer
Public Partial Class Window1
Inherits Window
Public Sub New()
InitializeComponent()
Me.Show()
AddHandler Me.KeyDown, New System.Windows.Input.KeyEventHandler(AddressOf Window1_KeyDown)
End Sub
Private Sub Window1_KeyDown(sender As Object, e As System.Windows.Input.KeyEventArgs)
If e.Key = System.Windows.Input.Key.Escape Then
Me.Close()
End If
End Sub
End Class
End Namespace