[silverlight]

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

1- افتح مشروع عادي WindowsApplication
2- اضف كلاس الي هذا الفورم و ليكن اسمه SpyForm
3- في الكلاس SpayForm اكتب Inherits Form

كود :

Public Class SpyForm
  Inherits Form

End Class

4- لنعدل في خصائص الفورم برمجيا حتي نجعله خفيا و ابعاده تملأ الشاشة الكود التالي يوضح ذلكPublic Class SpyForm

كود :

  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

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

كود :

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

قم بتشغيل برنامجك حينها ستري فقط الفورم الرئيسي

إن أردت ان تري SpyForm عليك ان تعيد ضبط خاصية BackColor الخاصة به الي لون اخر

او يمكنك ضبط خاصية TransparencyKey Color الخاصة بهذا SpyForm الي اي لون اخر 

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

و في المشاركات التالية سوف نتحدث عن كيفية الاستفادة من هذا الفورم

و اعتقد ان بعض القراء لهذا الموضوع سيبدعون في الاستفادة من هذا SpyForm في برامجهم 

قد يتساءل البعض هل يمكن استخدام الفورم الرئيسي ليعمل بمثابة SpyForm بدون أن نبني كلاس خاص اسمه SpyForm

بالتاكيد يمكن استخدام الفورم الرئيسي و لكن الكود في تلك الحالة سوف يحتاج الي بعض التعديلات القليلة


  Test_SpyForm.rar (الحجم : 64.87 ك ب / التحميلات : 94)