<Window x:Class="WpfApplication1.Window1"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="WPF" Height="100" Width="200">
<StackPanel>
<Slider Name="slider" Maximum="100" Minimum="0" Value="50" />
<StackPanel Orientation="Horizontal">
<RepeatButton Click="SliderLeft_Click" Content="Click Me"
Height="23" Margin="10" Width="70"
ToolTip="Click to move slider left" />
<RepeatButton Click="SliderRight_Click" ClickMode="Hover"
Content="Touch Me" Height="23" Margin="10"
ToolTip="Hover to move slider right" Width="70" />
</StackPanel>
</StackPanel>
</Window>
//File:Window.xaml.vb
Imports System.Windows
Namespace WpfApplication1
Public Partial Class Window1
Inherits Window
Public Sub New()
InitializeComponent()
End Sub
Private Sub SliderLeft_Click(sender As Object, e As RoutedEventArgs)
slider.Value -= 1
End Sub
Private Sub SliderRight_Click(sender As Object, e As RoutedEventArgs)
slider.Value += 1
End Sub
End Class
End Namespace
|
