Mega Code Archive

 

Categories / VB.Net / WPF

 

TextBox PreviewKeyUp

<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="300" Width="300">     <DockPanel LastChildFill="True">         <TextBox DockPanel.Dock="Top" PreviewKeyUp="TextBox_KeyEvent" />         <TextBox Name="txtLog" HorizontalAlignment="Stretch" IsReadOnly="True" VerticalScrollBarVisibility="Visible"/>     </DockPanel> </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()     End Sub     Private Sub TextBox_KeyEvent(sender As Object, e As KeyEventArgs)       Dim msg As [String] = [String].Format("{0} - {1}" & vbLf, e.RoutedEvent.Name, e.Key)       txtLog.Text += msg       txtLog.ScrollToEnd()     End Sub   End Class End Namespace