Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Set Delay and Interval for RepeatButton

<Window x: Class="WpfApplication1.MainWindow"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     Title="CustomSpinButtonApp" Height="124" Width="280" WindowStartupLocation="CenterScreen">   <StackPanel>     <RepeatButton Name ="repeatAddValueButton"       Delay ="200" Interval ="1" Click ="repeatAddValueButton_Click" Content = "+"/>         <Label Name ="lblCurrentValue" Background ="LightGray" Height ="30" Width = "40"       VerticalContentAlignment="Center" HorizontalContentAlignment="Center" FontSize="15"/>     <RepeatButton Name ="repeatRemoveValueButton"       Delay ="200" Interval ="1" Click ="repeatRemoveValueButton_Click" Content = "-"/>   </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 WpfApplication1   Public Partial Class MainWindow     Inherits System.Windows.Window     Private currValue As Integer = 0     Public Sub New()       InitializeComponent()       lblCurrentValue.Content = currValue     End Sub     Protected Sub repeatAddValueButton_Click(sender As Object, e As RoutedEventArgs)       currValue += 1       lblCurrentValue.Content = currValue     End Sub     Protected Sub repeatRemoveValueButton_Click(sender As Object, e As RoutedEventArgs)       currValue -= 1       lblCurrentValue.Content = currValue     End Sub   End Class End Namespace