xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:src="clr-namespace:WpfApplication1.DecimalScrollBar"
Title="Decimal ScrollBar">
Orientation="Horizontal" Margin="24"
Maximum="100" LargeChange="10" SmallChange="1" />
Content="{Binding ElementName=scroll, Path=Value,
Converter={StaticResource conv}, ConverterParameter=2}" />
//File:Window.xaml.vb
Imports System
Imports System.Globalization
Imports System.Windows
Imports System.Windows.Data
Namespace WpfApplication1.DecimalScrollBar
_
Public Class DoubleToDecimalConverter
Implements IValueConverter
Public Function Convert(value As Object, typeTarget As Type, param As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert
Dim num As Decimal = New [Decimal](CDbl(value))
If param IsNot Nothing Then
num = [Decimal].Round(num, Int32.Parse(TryCast(param, String)))
End If
Return num
End Function
Public Function ConvertBack(value As Object, typeTarget As Type, param As Object, culture As CultureInfo) As Object Implements IValueConverter.ConvertBack
Return [Decimal].ToDouble(CDec(value))
End Function
End Class
End Namespace