20-11-15, 09:52 PM
يمكنك عمل تأثير Puff في مشروعك ..
يمكن ان تطبقه على اي Object كما في الصورة
اضف Module جديد , وضع هذا الكود بداخلة
ثم في Button_click مثلاً
حاولت تطبيق التأثيرات الموجودة هنا على الـ Form
في Module جديد ضع هذا الكود
ثم في الـ Form
يمكن ان تطبقه على اي 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)