' エンドユーザーがトラックをクリックすると、新しいつまみがクリックした場所に追加されます
Private Sub xamNumericRangeSlider_TrackClick(ByVal sender As System.Object, ByVal e As TrackClickEventArgs(Of System.Double))
' エンドユーザーがトラックをクリックすると、新しいつまみがクリックした場所に追加されます
' 新しいつまみを定義します
Dim thumb As xamSliderNumericThumb = New xamSliderNumericThumb
'つまみの値をエンドユーザーがクリックした領域に設定します
thumb.Value = e.Value
'スライダーの Thumbs コレクションに追加します
Me.xamNumericRangeSlider1.Thumbs.Add(thumb)
' つまみをアクティブに設定します
Me.xamNumericRangeSlider1.ActiveThumb = thumb
End Sub
' エンドユーザーがボタンをクリックすると、現在アクティブのつまみが削除されます
Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
' アクティブのつまみがあることを確認します
If (Not (Me.xamNumericRangeSlider1.ActiveThumb) Is Nothing) Then
' アクティブのつまみをスライダーの Thmbs コレクションから削除します
Me.xamNumericRangeSlider1.Thumbs.Remove(Me.xamNumericRangeSlider1.ActiveThumb)
End If
End Sub