Emmanuele Sassi
26 lines
920 B
VB.net
26 lines
920 B
VB.net
Imports System.Globalization
|
|
|
|
Public Class LeftPanelVM
|
|
|
|
End Class
|
|
|
|
Public Class CenterToolTipConverter
|
|
Implements IMultiValueConverter
|
|
|
|
Public Function Convert(ByVal values As Object(), ByVal targetType As Type, ByVal parameter As Object, ByVal culture As CultureInfo) As Object Implements IMultiValueConverter.Convert
|
|
For Each value In values
|
|
If TypeOf (value) IsNot Double Then
|
|
Return Double.NaN
|
|
End If
|
|
Next
|
|
Dim placementTargetHeight As Double = CDbl(values(0))
|
|
Dim toolTipHeight As Double = CDbl(values(1))
|
|
Return (placementTargetHeight / 2.0) - (toolTipHeight / 2.0)
|
|
End Function
|
|
|
|
Public Function ConvertBack(ByVal value As Object, ByVal targetTypes As Type(), ByVal parameter As Object, ByVal culture As CultureInfo) As Object() Implements IMultiValueConverter.ConvertBack
|
|
Throw New NotSupportedException()
|
|
End Function
|
|
|
|
End Class
|