Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Two repeat buttons that increase and decrease a numerical value

<DockPanel xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     x:Class="RepeatButtons.Pane1">   <StackPanel>       <RepeatButton Width="100" DockPanel.Dock="Top"                      Delay="500" Interval="100"                      Click="Increase">         Increase       </RepeatButton>       <TextBlock Name="valueText"                   Width="100" DockPanel.Dock="Top"                   TextAlignment="Center" FontSize="16">         0       </TextBlock>       <RepeatButton Width="100" DockPanel.Dock="Top"                      Delay="500" Interval="100"                      Click="Decrease">         Decrease       </RepeatButton>     </StackPanel> </DockPanel> //File:Window.xaml.vb Imports System Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Documents Imports System.Windows.Navigation Imports System.Windows.Shapes Imports System.Windows.Data Namespace RepeatButtons   Public Partial Class Pane1     Inherits DockPanel     Private Sub Increase(sender As Object, e As RoutedEventArgs)       Dim Num As Int32 = Convert.ToInt32(valueText.Text)       valueText.Text = ((Num + 1).ToString())     End Sub     Private Sub Decrease(sender As Object, e As RoutedEventArgs)       Dim Num As Int32 = Convert.ToInt32(valueText.Text)       valueText.Text = ((Num - 1).ToString())     End Sub   End Class End Namespace