[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)