Создать событие: nameslider_valueChanged
и округлить значение.
Пример
SAnios
- это имя элемента управления ползунком
Private Sub sAnios_ValueChanged(sender As Object,
e As RoutedPropertyChangedEventArgs(Of Double))
If Not IsNothing(sAnios) Then
sAnios.Value = FormatNumber(sAnios.Value, 0)
End If
End Sub
If Not IsNothing
- для предотвращения ошибки при загрузке приложения.