Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

If input is not a number do not handle the key event

<Window x: Class="RoutedEvents.OnlyNumbers"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     Title="Only Numbers" Height="300" Width="300">     <StackPanel Margin="5" PreviewTextInput="pnl_PreviewTextInput" PreviewKeyDown="pnl_PreviewKeyDown">         <TextBox Margin="3" AcceptsTab="False"></TextBox>         <TextBox Margin="3"></TextBox>     </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 OnlyNumbers     Inherits System.Windows.Window     Public Sub New()       InitializeComponent()     End Sub     Private Sub pnl_PreviewTextInput(sender As Object, e As TextCompositionEventArgs)       Dim val As Short       If Not Int16.TryParse(e.Text, val) Then         e.Handled = True       End If     End Sub     Private Sub pnl_PreviewKeyDown(sender As Object, e As KeyEventArgs)       If e.Key = Key.Space Then         e.Handled = True       End If     End Sub   End Class End Namespace