[مقال] Fun with Windows Forms & Graphics - Spy Form - نسخة قابلة للطباعة

كود :

  Inherits Form



   Public Sub New()

       Me.InitializeForm()



   End Sub



   Private Sub InitializeForm()



       ' set both back color and transparencykey to while color

       MyBase.BackColor = Color.White

       MyBase.TransparencyKey = Color.White



       ' do not show the form in task bar

       MyBase.ShowInTaskbar = False

       ' set the startposition to manual

       MyBase.StartPosition = FormStartPosition.Manual

       ' set the top most to true

       MyBase.TopMost = True



       ' set formborderystyle to non

       MyBase.FormBorderStyle = Windows.Forms.FormBorderStyle.None



       ' get the computer screen rectangle

       Dim rect As Rectangle = CType(Nothing, Rectangle)

       Dim devices As Screen() = Screen.AllScreens

       For i As Integer = 0 To devices.Length - 1

           Dim device As Screen = devices(i)

           rect = System.Drawing.Rectangle.Union(rect, device.Bounds)

       Next



       ' set the form bounds to screen rectangle 

       MyBase.Bounds = rect



       ' set form double buffer

       MyBase.DoubleBuffered = True



       ' give a name to the form

       MyBase.Name = "SpyForm"



   End Sub



End Class

كود :

Public Class Form1



   ' define spay form

   Private spy As SpyForm



   Protected Overrides Sub OnLoad(e As EventArgs)

       Me.ShowSpyFormOnLoad()

       MyBase.OnLoad(e)

   End Sub



   Protected Overrides Sub OnFormClosing(e As FormClosingEventArgs)

       Me.DisposeSpyFormOnClosing()

       MyBase.OnFormClosing(e)

   End Sub



   ' show the spy form while loading of Form1

   Private Sub ShowSpyFormOnLoad()

       Me.spy = New SpyForm

       Me.spy.Show()

   End Sub



   ' dispose the spy form while closing of Form1

   Private Sub DisposeSpyFormOnClosing()

       Me.spy.Close()

       Me.spy.Dispose()

       Me.spy = Nothing

   End Sub



End Class

كود :

Public Class SpyForm

    Inherits Form



    Private animatedImage As Bitmap = My.Resources.Catty

    Private currentlyAnimating As Boolean = False



    Public Sub New()

        Me.InitializeForm()



    End Sub



    Private Sub InitializeForm()



        ' set both back color and transparencykey to while color

        MyBase.BackColor = Color.White

        MyBase.TransparencyKey = Color.White



        ' do not show the form in task bar

        MyBase.ShowInTaskbar = False

        ' set the startposition to manual

        MyBase.StartPosition = FormStartPosition.Manual

        ' set the top most to true

        MyBase.TopMost = True



        ' set formborderystyle to non

        MyBase.FormBorderStyle = Windows.Forms.FormBorderStyle.None



        ' get the computer screen rectangle

        Dim rect As Rectangle = CType(Nothing, Rectangle)

        Dim devices As Screen() = Screen.AllScreens

        For i As Integer = 0 To devices.Length - 1

            Dim device As Screen = devices(i)

            rect = System.Drawing.Rectangle.Union(rect, device.Bounds)

        Next



        ' set the form bounds to screen rectangle 

        MyBase.Bounds = rect



        ' set form double buffer

        MyBase.DoubleBuffered = True



        ' give a name to the form

        MyBase.Name = "SpyForm"



    End Sub



    Protected Overrides Sub OnPaint(e As PaintEventArgs)

        MyBase.OnPaint(e)



        'Begin the animation of the mage

        AnimateImage()

        'Get the next frame ready for rendering.

        ImageAnimator.UpdateFrames()



        Dim g As Graphics = e.Graphics



        ' define the location of the form

        Dim formLocation As Point = New Point(MyBase.Location.X, MyBase.Location.Y)

        ' define a rect and translate its location to the cursor position

        Dim rect As Rectangle = TranslateRectangle(formLocation, Screen.FromPoint(Control.MousePosition).Bounds)

        ' define a point wher we shall draw the animated image

        Dim pt As Point = TranslatePoint(formLocation, Control.MousePosition)



        ' get the image size

        Dim imageSize As Size = New Size(animatedImage.Width, animatedImage.Height)



        Dim imagelocation As Point = pt



        ' 

        If imagelocation.X + imageSize.Width > rect.Right Then

            imagelocation.X = rect.Right - imageSize.Width

        End If



        If imagelocation.Y + imageSize.Height > rect.Bottom Then

            imagelocation.Y = rect.Bottom - imageSize.Height

        End If



        ' define the image rect to draw the animated image within it

        Dim imageRect As Rectangle = New Rectangle(imagelocation, imageSize)



        ' draw the animated image on the form

        g.DrawImage(animatedImage, imageRect)



    End Sub



    Friend Function TranslateRectangle(pt As Point, rect As Rectangle) As Rectangle

        Return New Rectangle(rect.X + pt.X, rect.Y + pt.Y, rect.Width, rect.Height)

    End Function



    Friend Function TranslatePoint(pt1 As Point, pt2 As Point) As Point

        Return New Point(pt2.X + pt1.X, pt2.Y + pt1.Y)

    End Function



    Private Sub OnFrameChanged(ByVal o As Object, ByVal e As EventArgs)

        'Force a call to the Paint event handler. 

        Me.Invalidate()

    End Sub



    Friend Sub AnimateImage()

        If Not currentlyAnimating Then

            ' Begin the animation

            ImageAnimator.Animate(animatedImage, New EventHandler(AddressOf Me.OnFrameChanged))

            currentlyAnimating = True

        End If

    End Sub



End Class