Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Is Key CapsLock Toggled

<Window x: Class="WpfApplication1.Window1"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     Title="WPF" Height="170" Width="200">     <StackPanel HorizontalAlignment="Center">         <UniformGrid Columns="2">             <UniformGrid.Resources>                 <Style TargetType="{x:Type CheckBox}">                     <Setter Property="IsHitTestVisible" Value="False" />                     <Setter Property="Margin" Value="5" />                 </Style>             </UniformGrid.Resources>         </UniformGrid>         <Button Content="Check Keyboard" Margin="10" Click="Button_Click"/>     </StackPanel> </Window> //File:Window.xaml.vb Imports System Imports System.Windows Imports System.Windows.Input Namespace WpfApplication1   Public Partial Class Window1     Inherits Window     Public Sub New()       InitializeComponent()       CheckKeyboardState()     End Sub     Private Sub Button_Click(sender As Object, e As RoutedEventArgs)       CheckKeyboardState()     End Sub     Private Sub CheckKeyboardState()       Console.WriteLine(Keyboard.IsKeyToggled(Key.CapsLock))     End Sub   End Class End Namespace