<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
|
