RoutedEvents: Key Press Events : RoutedCommand « Windows Presentation Foundation « VB.Net

Home
VB.Net
1.2D
2.Application
3.Class
4.Data Structure
5.Data Types
6.Database ADO.net
7.Development
8.Event
9.File Directory
10.Generics
11.GUI
12.Language Basics
13.LINQ
14.Network Remote
15.Security
16.Thread
17.Windows Presentation Foundation
18.Windows System
19.XML
20.XML LINQ
VB.Net Tutorial
VB.Net by API
VB.Net » Windows Presentation Foundation » RoutedCommandScreenshots 
RoutedEvents: Key Press Events
RoutedEvents: Key Press Events
    
<Window x:Class="RoutedEvents.KeyPressEvents"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="KeyPressEvents" Height="400" Width="400" >
    <StackPanel>
          <DockPanel Margin="5">
            <TextBlock Margin="3" >Type here:</TextBlock>
            <TextBox PreviewKeyDown="KeyEvent" KeyDown="KeyEvent" 
                     PreviewKeyUp="KeyEvent" KeyUp="KeyEvent"
                     PreviewTextInput="TextInput"
                     TextChanged="TextChanged"></TextBox>
          </DockPanel>
      <ListBox Margin="5" Name="lstMessages"></ListBox>
      <CheckBox Margin="5" Name="chkIgnoreRepeat">Ignore Repeated Keys</CheckBox>
      <Button Click="cmdClear_Click" HorizontalAlignment="Right">Clear List</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 KeyPressEvents
    Inherits System.Windows.Window
    Public Sub New()
      InitializeComponent()
    End Sub

    Private Sub KeyEvent(sender As Object, e As KeyEventArgs)
      If CBool(chkIgnoreRepeat.IsCheckedAndAlso e.IsRepeat Then
        Return
      End If

      Dim message As String = "Event: " & Convert.ToString(e.RoutedEvent" " " Key: " & Convert.ToString(e.Key)
      lstMessages.Items.Add(message)
    End Sub

    Private Sub TextInput(sender As Object, e As TextCompositionEventArgs)
      Dim message As String = "Event: " & Convert.ToString(e.RoutedEvent" " " Text: " & e.Text
      lstMessages.Items.Add(message)
    End Sub

    Private Sub TextChanged(sender As Object, e As TextChangedEventArgs)
      Dim message As String = "Event: " & Convert.ToString(e.RoutedEvent)
      lstMessages.Items.Add(message)
    End Sub

    Private Sub cmdClear_Click(sender As Object, e As RoutedEventArgs)
      lstMessages.Items.Clear()
    End Sub
  End Class
End Namespace

   
    
    
    
  
Related examples in the same category
1.Create a custom RoutedCommand, the CommandBinding objects, and the KeyBinding objects in code.Create a custom RoutedCommand, the CommandBinding objects, and the KeyBinding objects in code.
2.Convert RoutedEventArgs.OriginalSource to event senderConvert RoutedEventArgs.OriginalSource to event sender
3.RoutedEvents: Button Mouse Up EventRoutedEvents: Button Mouse Up Event
4.RoutedEvents: Drag And DropRoutedEvents: Drag And Drop
5.RoutedEvents: Focus eventRoutedEvents: Focus event
6.RoutedEvents: Key ModifiersRoutedEvents: Key Modifiers
7.RoutedEvents: Mouse PositionRoutedEvents: Mouse Position
8.Bubble routed events, and write an event handler for a routed event.Bubble routed events, and write an event handler for a routed event.
9.Get RoutedEvent NameGet RoutedEvent Name
10.Create RoutedCommand from InputGestureCollection
11.RoutedEvents Only NumbersRoutedEvents Only Numbers
12.Routed Event DemoRouted Event Demo
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.