TextBox PreviewKeyUp : TextBlock « Windows Presentation Foundation « VB.Net
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
