Blur effect - نسخة قابلة للطباعة

كود :

Imports System.Windows

Imports System.Windows.Input

Imports System.Windows.Media.Animation

Imports System.Windows.Media.Effects



Public NotInheritable Class BlurElementExtension

    Public Shared Sub BlurApply(element As UIElement, blurRadius As Double, duration As TimeSpan, beginTime As TimeSpan)

        Dim effect As New BlurEffect With {

        .Radius = 0

    }

        Dim animation As New DoubleAnimation(0, blurRadius, duration) With {

        .BeginTime = New TimeSpan?(beginTime)

    }

        element.Effect = effect

        effect.BeginAnimation(BlurEffect.RadiusProperty, animation)

    End Sub



    Public Shared Sub BlurDisable(element As UIElement, duration As TimeSpan, beginTime As TimeSpan)

        Dim blur As BlurEffect = TryCast(element.Effect, BlurEffect)

        If blur Is Nothing OrElse blur.Radius = 0 Then

            Return

        End If

        Dim animation As New DoubleAnimation(blur.Radius, 0, duration) With {

            .BeginTime = New TimeSpan?(beginTime)

        }

        blur.BeginAnimation(BlurEffect.RadiusProperty, animation)

    End Sub

End Class

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        BlurElementExtension.BlurApply(Me.Handle, BlurRadius, New TimeSpan(0, 0, 1), TimeSpan.Zero)

    End Sub