RoutedEvents: Key Modifiers : RoutedCommand « Windows Presentation Foundation « VB.Net Tutorial
- VB.Net Tutorial
- Windows Presentation Foundation
- RoutedCommand
<Window x:Class="RoutedEvents.KeyModifiers"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="KeyModifiers" Height="300" Width="300">
<StackPanel Margin="5">
<TextBox KeyDown="KeyEvent"></TextBox>
<TextBlock Name="lblInfo"></TextBlock>
<Button Click="CheckShift">Check Current Shift State</Button>
</StackPanel>
</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 RoutedEvents
Public Partial Class KeyModifiers
Inherits System.Windows.Window
Public Sub New()
InitializeComponent()
End Sub
Private Sub KeyEvent(sender As Object, e As KeyEventArgs)
lblInfo.Text = "Modifiers: " & e.KeyboardDevice.Modifiers.ToString()
If (e.KeyboardDevice.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
lblInfo.Text += vbCr & vbLf & "You held the Control key."
End If
End Sub
Private Sub CheckShift(sender As Object, e As RoutedEventArgs)
If Keyboard.IsKeyDown(Key.LeftShift) Then
lblInfo.Text = "The left Shift is held down."
Else
lblInfo.Text = "The left Shift is not held down."
End If
End Sub
End Class
End Namespace
