تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] تأثيرات على Form او على Objects
#1
يمكنك عمل تأثير  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.WidthControl.Height)
 
       Control.DrawToBitmap(Screenshot, New Rectangle(00Control.WidthControl.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
.TickAddressOf 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 ObjectAs 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 
1
        If i 
0 Then PuffForm.Close()
 
   End Sub 

ثم في Button_click مثلاً 
PHP كود :
Puff(Sender
Blush
حاولت تطبيق التأثيرات الموجودة هنا على الـ 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 
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(00)
 
       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 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
الرد }}}}
#2
جزاك الله خيرا ......
حركة جميلة ....
الرد }}}}
تم الشكر بواسطة: HASAN6.0
#3
(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.WidthControl.Height)
 
       Control.DrawToBitmap(Screenshot, New Rectangle(00Control.WidthControl.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
.TickAddressOf 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 ObjectAs 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 
1
        If i 
0 Then PuffForm.Close()
 
   End Sub 

ثم في Button_click مثلاً 
PHP كود :
Puff(Sender
Blush

السلام عليكم

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

ولكن ليه ما بيطلع الافلاش حول البتون كما في الصورة عند تطبيق الكود بيطلع الفلاش فوق الشاشة او تحتها
الرد }}}}
تم الشكر بواسطة:
#4
(27-11-15, 11:14 PM)mbk2006 كتب : السلام عليكم

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

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

كلامك صحيح في حالة كان الـ Object داخل form داخل Mdi parent form
انا فقط حاولت اطبق التأثير  Puff  الموجود في الـ Jquery الموجود هنا
الرد }}}}
تم الشكر بواسطة:
#5
(26-11-15, 02:23 PM)eldmasy11 كتب : جزاك الله خيرا ......
حركة جميلة 
أشكرك جزيل الشكر يا أخي كان هذا حقا مفيدا.
The King Joker
الرد }}}}
تم الشكر بواسطة: HASAN6.0 , HASAN6.0


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  Retrieve Owner and Form of a Control silverlight 0 184 12-12-15, 05:28 AM
آخر رد: silverlight
  [مقال] Fun with Windows Forms & Graphics - Spy Form silverlight 1 514 23-06-15, 09:33 PM
آخر رد: silverlight
  إيجاد جميع الكونترول الموجودة في الفورم Recursively Find All Controls in Form silverlight 0 510 26-05-15, 12:31 AM
آخر رد: silverlight
  معلومة ::: How to resize Windows form to fit Windows screen ::: RaggiTech 0 413 06-10-12, 09:53 PM
آخر رد: RaggiTech
  معلومة ::: Open Form As Single RaggiTech 0 375 06-10-12, 09:28 PM
آخر رد: RaggiTech
  الفرق بين الأصناف Classes و الكائنات Objects RaggiTech 0 683 02-10-12, 07:49 PM
آخر رد: RaggiTech
  How To Move Borderless Form RaggiTech 1 289 01-10-12, 03:57 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم