WPF Custom Shader Effect Double Animations Not Working

See more:

VB

WPF

I can't get a double animation inside the vb.net working. I've successfully compiled HLSL file and when I bind it in the xaml file to a control, it works just fine. I can also use custom effect from the .xaml.vb file, but I can not get it to work with DoubleAnimation in the .xaml.vb file.

Here is the list of my codes:

----- Pixel Shader Code ------

// http://www.silverlightshow.net/items/Book-Folding-effect-using-Pixel-Shader.aspx

sampler2D input : register(s0);

/// <summary>The Left</summary>;
/// <minvalue>0</minvalue>;
/// <maxvalue>1</maxvalue>;
/// <defaultvalue>0</defaultvalue>;
 float left : register(c0);
 float4 transform(float2 uv : TEXCOORD) : COLOR
 {
        float right = 1 - left;
     // transforming the curent point (uv) according to the new boundaries.
        float2 tuv = float2((uv.x - left) / (right - left), uv.y);

     float tx = tuv.x;
     if (tx > 0.5)
     {
        tx = 1 - tx;
     }
     float top = left * tx;
     float bottom = 1 - top;
     if (uv.y >= top && uv.y <= bottom)
     {
     //linear interpolation between 0 and 1 considering the angle of folding.
         float ty = lerp(0, 1, (tuv.y - top) / (bottom - top));
        // get the pixel from the transformed x and interpolated y.
       return tex2D(input, float2(tuv.x, ty));
 }
    return 0;
 }

 float4 main(float2 uv : TEXCOORD) : COLOR
 {
     float right = 1 - left;
     if(uv.x > left && uv.x < right)
     {
        return transform(uv);
     }

     return 0;
 }

----- .xaml.vb file --------

'Procedure I call to start double animation.
 Public Sub ApplyEffect()
Dim sb As New Storyboard()
        Dim da As New DoubleAnimation()
        Storyboard.SetTarget(da, myButton)
        Storyboard.SetTargetProperty(da, New PropertyPath(WPF_Effects.clEffects.clEffects.LeftProperty))
        da.From = 0
        da.[To] = 10
        da.Duration = (TimeSpan.FromSeconds(2))
        da.AutoReverse = True
        da.RepeatBehavior = RepeatBehavior.Forever
        sb.Children.Add(da)
        sb.Begin(myButton)
End Sub

---- clEffects Class -----

Option Strict Off
Option Explicit On
Imports System
'Imports System.Net
Imports System.Windows
Imports System.Windows.Media
Imports System.Windows.Media.Effects
Imports System.Windows.Media.Media3D
#Region "FADE IN TRANSITION EFFECT"
Namespace clEffects
    ///<summary>A transition effect </summary>
    Public Class clEffects
        Inherits ShaderEffect
        Public Shared ReadOnly InputProperty As DependencyProperty = ShaderEffect.RegisterPixelShaderSamplerProperty("Input", GetType(clEffects), 0)
        Public Shared ReadOnly LeftProperty As DependencyProperty = DependencyProperty.Register("Left", GetType(Double), GetType(clEffects), New UIPropertyMetadata(CType(0.0R, Double), PixelShaderConstantCallback(0)))
        Public Sub New()
            MyBase.New()
            Dim pixelShader As PixelShader = New PixelShader()
            pixelShader.UriSource = New Uri("/WPF_Effects;component/Effect.ps", UriKind.Relative)
            Me.PixelShader = pixelShader
            Me.UpdateShaderValue(InputProperty)
            Me.UpdateShaderValue(LeftProperty)
        End Sub
        Public Property Input() As Brush
            Get
                Return CType(Me.GetValue(InputProperty), Brush)
            End Get
            Set(ByVal value As Brush)
                Me.SetValue(InputProperty, value)
            End Set
        End Property
        '''<summary>The Left </summary>
        Public Property Left() As Double
            Get
                Return CType(Me.GetValue(LeftProperty), Double)
            End Get
            Set(ByVal value As Double)
                Me.SetValue(LeftProperty, value)
            End Set
        End Property
    End Class
End Namespace
#End Region

------ XAML WPF User Control ------

<usercontrol x:class="ucWPF" xmlns:x="#unknown">
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006";
             xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
             xmlns:local="clr-namespace:WPF_Effects.clEffects"
             mc:Ignorable="d"
             d:DesignHeight="300" d:DesignWidth="300">
    <grid>

        <stackpanel>

            <Button Name="myButton" Content="Click!" Click="StartAnimation" Width="153"
            Margin="60" Height="74">

                <Button.RenderTransform>
                    <transformgroup>
                        <translatetransform x:name="myTranslateTransform" />
                        <scaletransform x:name="myScaleTransform" /><br mode=" hold=" />                    </TransformGroup><br mode="></scaletransform></transformgroup></stackpanel></grid></usercontrol>