Get User Input from a Slider : Slider « Windows Presentation Foundation « VB.Net






Get User Input from a Slider

Get User Input from a Slider
     
<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="200" Width="300">
    <StackPanel>
        <TextBlock Margin="5" Text="0" FontSize="20" 
                   HorizontalAlignment="Center" Name="txtSliderValue" />
        <Slider LargeChange="10" Margin="5" Maximum="1000" Minimum="0" 
                Name="slider1" TickPlacement="TopLeft" 
                Ticks="100, 200, 400, 800" Value="0"
                ValueChanged="slider_ValueChanged" />
        <Button Name="btnGetSliderValue1" Width="100" 
                Click="GetSliderValue_Click">Get Slider 1 Value</Button>
        <Slider IsSnapToTickEnabled="True" Margin="5" Maximum="1000" 
                Minimum="0" Name="slider2" TickFrequency="25" 
                TickPlacement="BottomRight" Value="1000" 
                ValueChanged="slider_ValueChanged" />
        <Button Name="btnGetSliderValue2" Width="100" 
                Click="GetSliderValue_Click">Get Slider 2 Value</Button>
    </StackPanel>
</Window>
//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Controls

Namespace WpfApplication1
  Public Partial Class Window1
    Inherits Window
    Public Sub New()
      InitializeComponent()
    End Sub
    Private Sub GetSliderValue_Click(sender As Object, e As RoutedEventArgs)
      Dim button As Button = TryCast(e.OriginalSource, Button)
      Dim message As String = "Unknown slider."

      If button Is btnGetSliderValue1 Then
        message = "Slider1 value = " + slider1.Value
      ElseIf button Is btnGetSliderValue2 Then
        message = "Slider2 value = " + slider2.Value
      End If

      MessageBox.Show(message, Title)
    End Sub
    Private Sub slider_ValueChanged(sender As Object, e As RoutedPropertyChangedEventArgs(Of Double))
      Dim slider As Slider = TryCast(e.OriginalSource, Slider)

      If slider IsNot Nothing Then
        txtSliderValue.Text = slider.Value.ToString()
      End If
    End Sub
  End Class
End Namespace

   
    
    
    
    
  








Related examples in the same category

1.Slider with Tick Marks (TickFrequency=10, TickPlacement=BottomRight)Slider with Tick Marks (TickFrequency=10, TickPlacement=BottomRight)
2.Slider with Irregular Tick Marks (Ticks=0,5,10,15,25,50,100)Slider with Irregular Tick Marks (Ticks=0,5,10,15,25,50,100)
3.Slider with a Selection Range (IsSelectionRangeEnabled=True, SelectionStart=25, SelectionEnd=75)Slider with a Selection Range (IsSelectionRangeEnabled=True, SelectionStart=25, SelectionEnd=75)
4.Use Slider to scale a LineUse Slider to scale a Line
5.Use Slider to scale a RectangleUse Slider to scale a Rectangle
6.Use Slider to Control LabelUse Slider to Control Label
7.Slider AttributesSlider Attributes
8.slider value changed eventslider value changed event