<Window x:Class="WpfApplication1.Window1"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="Window1" Height="300" Width="300">
<Grid>
<StackPanel>
<TextBox x:Name="uv" PreviewKeyDown="TextBox_PreviewKeyDown" />
</StackPanel>
</Grid>
</Window>
//File:Window1.xaml.cs
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Media
Namespace WpfApplication1
Public Partial Class Window1
Inherits Window
Public Sub New()
InitializeComponent()
DataContext = Me
End Sub
'
Private Sub TextBox_PreviewKeyDown(sender As Object, e As RoutedEventArgs)
Dim textBox As TextBox = TryCast(sender, TextBox)
If textBox IsNot Nothing Then
textBox.Foreground = Brushes.Firebrick
End If
End Sub
End Class
End Namespace
|
