Fun with Windows Forms & Graphics - Spy Form

السلام عليكم و رحمة الله و بركاته

مقدمة:

من الأشياء الطريفة جدا و القديمة أيضا في عالم الكمبيوتر هي برنامج عبارة عن صورة متحركة تتحرك خلف الماوس  و مثل هذه الأفكار البرمجية البسيطة قد يستمتع بها كثيرا بعض من مستخدمي برامج الكمبيوتر و خاصة الأطفال. و غالبا بعض المبرمجين يستخدمون هذه الأفكار البرمجية لإضفاء مؤثرات لها شكل لطيف علي برامجهم و الهدف من ذلك هو إسعاد المستخدم و جذبه الي برامجهم.

قد يتخيل البعض ان مثل هذه البرامج تحتاج الي مجهود ضخم من المبرمج لكنها و في واقع الأمر عبارة عن برامج بسيطة جدا يمكن كتابتها باستخدام مجموعة من الأسطر القليلة من الكود.

المرحلة الأولي لتنفيذ الفكرة
لتنفيذ المرحلة الأولي يجب علينا ان نبني فورم بسيط جدا و لنطلق عليه  SpyForm

و الخطوات التالية توضح كيفية بناء SpyForm

 افتح مشروع عادي   WindowsApplication
 اضف كلاس الي هذا الفورم وليكن اسمه  SpyForm
 في الكلاس SpayForm اكتب  Inherits Form
 Code
Public Class SpyForm
  Inherits Form

End Class
 
لنعدل قليلا في خصائص الفورم برمجيا حتي نجعله خفيا وابعاده تملأ الشاشة والكود التالي يوضح تلك
 Code
 Public Class SpyForm
  Inherits Form

  Public Sub New()
      Me.InitializeForm()

  End Sub

  Private Sub InitializeForm()

      ' set both back color and transparencykey to white 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
 

الخطوة التالية هي أن نضيف هذا الفورم الي الفورم الرئيسي في مشروعنا
في الفورم الرئيسي نقوم بتعريف متغير يعبر عن SpyForm ثم في الحدث Load نضيف هذا  Spyform  وفي الحدث Closing نتخلص منه او يمكن عمل Overrides للحدثان OnLoad و OnformClosing  كما هو مبين في الكود االتالي
 Code
Public Class Form1

  ' define spy 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
 

قم بتشغيل برنامجك حينها ستري فقط الفورم الرئيسي
إن أردت ان تري SpyForm عليك ان تعيد ضبط خاصية BackColor الخاصة به الي لون اخر
او يمكنك ضبط خاصية TransparencyKey Color الخاصة بهذا SpyForm الي اي لون اخر 
قد يتساءل البعض هل يمكن استخدام الفورم الرئيسي ليعمل بمثابة SpyForm بدون أن نبني كلاس خاص اسمه SpyForm  بالتاكيد يمكن استخدام الفورم الرئيسي و لكن الكود في تلك الحالة سوف يحتاج الي بعض التعديلات القليلة

الأن و بعد أن قمنا بكتابة الجزء الأول عن كيفية بناء  SpyForm لنبدأ في توضيح كيفية الاستفادة من هذا الفورم في بناء فكرة بسيطة و هي عبارة عن رسم شئ يتحرك خلف الماوس و هذه المرحلة تحتاج الي بعض المعرفة البسيطة بكيفية الرسم علي الفورم

بالتاكيد يمكن الاستفادة من هذا الفورم بأساليب كثيرة ومحتلفة  وأعتقد أن أهم شئ ممكن ان نستفيد به هو أن نرسم NonClientArea  للفورم الرئيسي و لكن لهذا حديث أخر

و الأن لنعود الي SpyForm ونقوم بالتعديل في الكود الخاص به قليلا

أولا : سوف نقوم بإضافة صورة متحركة بحجم صغير مناسب و نضيفها الي Resources المشروع
و سيتم تحريك هذه الصورة علي الفورم باستخدام  ImageAnimator Class

ثانيا :  اهم شئ في الرسم علي الفورم و لكي يكون الرسم دقيقا يجب علينا أن نحدد المكان الذي سوف نرسم به الصورة و هو سيكون عبارة عن مستطيل أبعاده عبارة عن ابعاد الصورة و لكن نقطة رسم هذا المستطيل ستكون مرتبطة بمكان Cursor او بمكان MousePosition علي شاشة الكمبيوتر لهذا سوف نحتاج الي استخدام  Translation  أو Offset لنقطة بداية الرسم لكي نربطها مع MousePosition علي الشاشة
 Code
 
 
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


References:

1- ImageAnimator Class
2- Control.MousePosition Property
3- Rectangle.Offset Method (Point)

الصورة التي تم استخدامها في الفورم هي كالأتي


Download the code

Comments

Post a Comment

Popular posts from this blog

Image Transition in VB.NET Windows Forms

Image
Introduction This article demonstrates how to implement a simple transition on images in VB.NET. Transitions are one of the most useful features used in slide shows, business presentations, videos, screensavers, and with transitions, coders can build simple and easy visual effects on their web pages/Windows Forms/videos with simple and very minimal code. Background You may find a lot of articles that demonstrate how to implement image transitions using Silverlight or Dynamic HTML, but it's rare to find articles that talk about image transitions either in C# or VB.NET Windows Forms ...... apparently, image transitions are very good business. In this article, I'll try to explain some of the most popular image transition methods and how they are done. Transitions and Visual Effects The list below shows the most popular image visual effects/transitions. You may follow the same transition names or rename the transitions to your convenience Barn : motion tha...
Read more

مقدمة الي تشفير الحروف الأبجدية العربية

مقدمة الحروف العربية مظلومة قليلا و غاليا اي مبرمج يعاني أحيانا في التعامل مع الحروف العربية تحديدا او قد يعاني أيضا حين  يريد التعامل مع اي حروف مكتوبة بلغة أخري غير اللغة الإنجليزية و في هذا الموضوح سأحاول أن أوضح كيفية تشفير الحروف العربية فقط الفكرة الحروف بشكل عام لها جداول وداخل هذه الجداول ستجد أن الحروف مرتبة برقم مسلسل و ايضا لها رقم  سداسي عشري  أو بمعني أدق كل حرف في جداول الحروف له مميزات يتم استخدامها للتفريق بينه و بين باق الحروف الأمثلة التالية توضح كيفية الحصول علي الرقم المسلسل الخاص بأي حرف مثال 1: الكود التالي يوضح مثال بسيط لكيفية الحصول علي الرقم المسلسل الخاص بحرف الياء التي تحتها نقطتان Dim c  As  Char  =  "ي" c Me . Text  =  Convert . ToInt32 ( c ) مثال 2: أيضا الكود التالي يوضح كيفية الحصول علي الرقم المسلسل الخاص بحرف الهمزة Dim c  As  Char  =  "ء" c Me . Text  =  Convert . ToInt32 ( c ) من الأمثلة أعلاه ستكتشف ان الرقم المسلسل بالحروف العربية يبدأ من ا...
Read more

مقدمة إلي إخفاء المعلومات - الجزء الثاني

في هذا الجزء من موضوع مقدمة إلي إخفاء المعلومات سنوضح و بطريقة مبسطة كيف يمكن تحويل تكست او مجموعة من الحروف الي مجموعة من الصور ثم نوضح الكيفية التي من الممكن بها استرداد هذه الحروف مرة أخري  من تلك الصور بشكل عام هدفي من طرح هذا الموضوع هو توضيح انه كيف ومن مجرد فكرة بسيطة  أن تخرج منها بأفكار أخري أهم و الفكرة سيتم كتابتها علي مراحل لتوضيح بعضا من الموضوعات التالية   حفظ المعلومات و حمايتها حماية السورس كود بناء الباركود و قرائته تحويل الملفات الي أنماط مختلفة بناء الفونت بناء الصور المتحركة حماية السيريال الخاص باي برنامج تحويل الحروف الي صور الخطوات التالية توضح كيفية تحويل مجموعة من الحروف الي مجموعة صور  تعريف الكلمة او الحروف Dim s  As  String  =  "omar amin"  تعريف مصفوفة الصور Dim bitmaps  As  Bitmap () = New  Bitmap ( s . Length  -  1 ) {} تحويل كل حرف موجود في التكست الي صورة و ذلك باستخدام الدوال التي كتبناها في الخلاصة أعلاه ثم نقوم بإ...
Read more