07-06-17, 04:32 AM
هل من طريقة لاستعمال هذه الكلاس فى Windows Form بدلآ من WPF
وجد مشكلى فى الكود لانة يعمل على WPF هل من طريقة لاجعلة يعمل فى Windows Form ?
كود :
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وجد مشكلى فى الكود لانة يعمل على WPF هل من طريقة لاجعلة يعمل فى Windows Form ?