+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : [كود] تأثيرات على Form او على Objects (/showthread.php?tid=13877)
تأثيرات على Form او على Objects - HASAN6.0 - 20-11-15
يمكنك عمل تأثير 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)
RE: تأثير Puff - eldmasy11 - 26-11-15
جزاك الله خيرا ......
حركة جميلة ....
RE: تأثير Puff - mbk2006 - 27-11-15
(20-11-15, 09:52 PM)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)
السلام عليكم
مشكور على الابداع الرائع
ولكن ليه ما بيطلع الافلاش حول البتون كما في الصورة عند تطبيق الكود بيطلع الفلاش فوق الشاشة او تحتها
RE: تأثير Puff - HASAN6.0 - 27-11-15
(27-11-15, 11:14 PM)mbk2006 كتب : السلام عليكم
مشكور على الابداع الرائع
ولكن ليه ما بيطلع الافلاش حول البتون كما في الصورة عند تطبيق الكود بيطلع الفلاش فوق الشاشة او تحتها
كلامك صحيح في حالة كان الـ Object داخل form داخل Mdi parent form
انا فقط حاولت اطبق التأثير Puff الموجود في الـ Jquery الموجود هنا
RE: تأثير Puff - Bettayeb - 30-11-15
(26-11-15, 02:23 PM)eldmasy11 كتب : جزاك الله خيرا ......أشكرك جزيل الشكر يا أخي كان هذا حقا مفيدا.
حركة جميلة
RE: تأثيرات على Form او على Objects - رسول555 - 25-03-18
شكرا على هذا المجهود