[HASAN6.0]

يمكنك عمل تأثير  Puff في مشروعك ..

يمكن ان تطبقه على اي  Object كما في الصورة 

اضف  Module جديد , وضع هذا الكود بداخلة 

PHP كود :

Private PuffForm As Form
    Private i As Integer = 0
    Private Function TakeScreenShot(ByVal Control As Control) As Bitmap
        Dim Screenshot As New Bitmap(Control.Width, Control.Height)
        Control.DrawToBitmap(Screenshot, New Rectangle(0, 0, Control.Width, Control.Height))
        Return Screenshot
    End Function
    Public Sub Puff(ByVal Object_ As Object)
        If IsNothing(PuffForm) = False Then PuffForm.Close()
        Dim timer As New Timer
        timer.Enabled = True
        timer.Interval = 1
        AddHandler timer.Tick, AddressOf Timer_Tick
        Dim PForm As New Form
        Dim pic As New PictureBox
        pic.Image = TakeScreenShot(Object_)
        pic.SizeMode = PictureBoxSizeMode.StretchImage
        pic.Dock = DockStyle.Fill
        PForm.Controls.Add(pic)
        PForm.Opacity = 0.3
        PForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        PForm.TopMost = True
        PForm.Size = Object_.Size
        PForm.Show()
        Object_.findform.Focus()
        PForm.Top = Object_.findform.Top + Object_.Top + Object_.Height / 2
        PForm.Left = Object_.findform.Left + Object_.Left
        PuffForm = PForm
        i = 30
    End Sub
    Private Sub Timer_Tick(sender As Object, e As EventArgs)
        If i = 0 Then Exit Sub
        Dim wi As Double = 2
        PuffForm.Top = PuffForm.Top - 4
        PuffForm.Height = PuffForm.Height + 8
        PuffForm.Left = PuffForm.Left - 4
        PuffForm.Width = PuffForm.Width + 8
        PuffForm.Opacity = PuffForm.Opacity - 0.01
        i = i - 1
        If i = 0 Then PuffForm.Close()
    End Sub 


ثم في Button_click مثلاً 

PHP كود :

Puff(Sender) 


حاولت تطبيق التأثيرات الموجودة هنا على الـ Form
 في  Module  جديد ضع هذا الكود

PHP كود :

 Public Sub Drop(ByVal Form As Form)
        Dim x As Integer = Form.Width + Form.Left
        Do Until x = 0
            Form.Left = Form.Left - 1
            Form.Opacity = Form.Opacity - 0.0005
            x = x - 1
        Loop
        Form.Close()
    End Sub
    Public Sub Fade(ByVal Form As Form)
        Do Until Form.Opacity = 0
            Form.Opacity = Form.Opacity - 0.00001
        Loop
        Form.Close()
    End Sub
    Public Sub Fold(ByVal Form As Form)
        If Form.WindowState = FormWindowState.Maximized Then Form.WindowState = FormWindowState.Normal
        Form.MinimumSize = New Size(0, 0)
        Do Until Form.Height <= 40
            Form.Height = Form.Height - 1
        Loop
        Do Until Form.Width <= 150
            Form.Width = Form.Width - 1
        Loop
        Form.Close()
    End Sub
    Public Sub Shake(ByVal Form As Form)
        If Form.WindowState = FormWindowState.Maximized Then Form.WindowState = FormWindowState.Normal
        Dim x As Integer = Form.Left
        Dim y As Integer = 15
        Dim done As Boolean = False
        Do Until y = 0
            If done Then
                For i = 0 To 35
                    Form.Left = Form.Left + 1
                Next
                done = False
            Else
                For i = 0 To 35
                    Form.Left = Form.Left - 1
                Next
                done = True
            End If
            y = y - 1
        Loop
        Form.Left = x
    End Sub
    Public Sub Clip(ByVal Form As Form)
        If Form.WindowState = FormWindowState.Maximized Then Form.WindowState = FormWindowState.Normal
         Do Until Form.Height <= 40
            Form.Height = Form.Height - 2
            Form.Top = Form.Top + 1
        Loop
        Form.Close()
    End Sub 


ثم في الـ Form

PHP كود :

Drop(Me)
        'or
        Fade(Me)
        'or
        Fold(Me)
        'or
        Shake(Me)
        'or
        Clip(Me) 


[eldmasy11]

جزاك الله خيرا ......
حركة جميلة ....

[mbk2006]

يمكنك عمل تأثير  Puff في مشروعك ..

يمكن ان تطبقه على اي  Object كما في الصورة 

اضف  Module جديد , وضع هذا الكود بداخلة 

PHP كود :

Private PuffForm As Form
    Private i As Integer = 0
    Private Function TakeScreenShot(ByVal Control As Control) As Bitmap
        Dim Screenshot As New Bitmap(Control.Width, Control.Height)
        Control.DrawToBitmap(Screenshot, New Rectangle(0, 0, Control.Width, Control.Height))
        Return Screenshot
    End Function
    Public Sub Puff(ByVal Object_ As Object)
        If IsNothing(PuffForm) = False Then PuffForm.Close()
        Dim timer As New Timer
        timer.Enabled = True
        timer.Interval = 1
        AddHandler timer.Tick, AddressOf Timer_Tick
        Dim PForm As New Form
        Dim pic As New PictureBox
        pic.Image = TakeScreenShot(Object_)
        pic.SizeMode = PictureBoxSizeMode.StretchImage
        pic.Dock = DockStyle.Fill
        PForm.Controls.Add(pic)
        PForm.Opacity = 0.3
        PForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        PForm.TopMost = True
        PForm.Size = Object_.Size
        PForm.Show()
        Object_.findform.Focus()
        PForm.Top = Object_.findform.Top + Object_.Top + Object_.Height / 2
        PForm.Left = Object_.findform.Left + Object_.Left
        PuffForm = PForm
        i = 30
    End Sub
    Private Sub Timer_Tick(sender As Object, e As EventArgs)
        If i = 0 Then Exit Sub
        Dim wi As Double = 2
        PuffForm.Top = PuffForm.Top - 4
        PuffForm.Height = PuffForm.Height + 8
        PuffForm.Left = PuffForm.Left - 4
        PuffForm.Width = PuffForm.Width + 8
        PuffForm.Opacity = PuffForm.Opacity - 0.01
        i = i - 1
        If i = 0 Then PuffForm.Close()
    End Sub 


ثم في Button_click مثلاً 

PHP كود :

Puff(Sender) 


---

السلام عليكم

مشكور على الابداع الرائع

ولكن ليه ما بيطلع الافلاش حول البتون كما في الصورة عند تطبيق الكود بيطلع الفلاش فوق الشاشة او تحتها

[HASAN6.0]

السلام عليكم

مشكور على الابداع الرائع

ولكن ليه ما بيطلع الافلاش حول البتون   كما في الصورة    عند تطبيق الكود بيطلع الفلاش فوق الشاشة او تحتها

كلامك صحيح في حالة كان الـ Object داخل form داخل Mdi parent form
انا فقط حاولت اطبق التأثير  Puff  الموجود في الـ Jquery الموجود هنا

[Bettayeb]

جزاك الله خيرا ......
حركة جميلة 

أشكرك جزيل الشكر يا أخي كان هذا حقا مفيدا.

[رسول555]

شكرا على هذا المجهود