' エンドユーザーがトラックをクリックすると、新しいつまみがクリックした場所に追加されます 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