xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="RepeatButtons.Pane1">
Delay="500" Interval="100"
Click="Increase">
Increase
Width="100" DockPanel.Dock="Top"
TextAlignment="Center" FontSize="16">
0
Delay="500" Interval="100"
Click="Decrease">
Decrease
//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