23-06-15, 08:09 PM
(آخر تعديل لهذه المشاركة : 23-06-15, 08:25 PM {2} بواسطة silverlight.)
السلام عليكم و رحمة الله و بركاته
مقدمة:
من الأشياء الطريفة جدا و القديمة أيضا في عالم الكمبيوتر هي برنامج عبارة عن صورة متحركة تتحرك خلف الماوس و مثل هذه الأفكار البرمجية البسيطة قد يستمتع بها كثيرا بعض من مستخدمي برامج الكمبيوتر و خاصة الأطفال. و غالبا بعض المبرمجين يستخدمون هذه الأفكار البرمجية لإضفاء مؤثرات لها شكل لطيف علي برامجهم و الهدف من ذلك هو إسعاد المستخدم و جذبه الي برامجهم.
قد يتخيل البعض ان مثل هذه البرامج تحتاج الي مجهود ضخم من المبرمج لكنها و في واقع الأمر عبارة عن برامج بسيطة جدا يمكن كتابتها باستخدام مجموعة من الأسطر القليلة من الكود.
المرحلة الأولي لتنفيذ الفكرة:
لتنفيذ المرحلة الأولي يجب علينا ان نبني فورم بسيط جدا و لنطلق عليه SpyForm
و الخطوات التالية توضح كيفية بناء SpyForm
1- افتح مشروع عادي WindowsApplication
2- اضف كلاس الي هذا الفورم و ليكن اسمه SpyForm
3- في الكلاس SpayForm اكتب Inherits Form
4- لنعدل في خصائص الفورم برمجيا حتي نجعله خفيا و ابعاده تملأ الشاشة الكود التالي يوضح ذلكPublic Class SpyForm
الخطوة التالية هي أن نضيف هذا الفورم الي الفورم الرئيسي في مشروعنا
في الفورم الرئيسي نقوم بتعريف متغير يعبر عن SpyForm ثم في الحدث Load نضيف هذا Spyform و في الحدث Closing نتخلص منه او يمكن عمل Overrides للخدثان OnLoad و OnformClosing كما هو مبين في الكود االتالي
قم بتشغيل برنامجك حينها ستري فقط الفورم الرئيسي
إن أردت ان تري SpyForm عليك ان تعيد ضبط خاصية BackColor الخاصة به الي لون اخر
او يمكنك ضبط خاصية TransparencyKey Color الخاصة بهذا SpyForm الي اي لون اخر
في المرفقات ستجدون الكود الخاص ب المرحلة الأولي و هو بناء SpyForm و اضافته الي الفورم الرئيسي
و في المشاركات التالية سوف نتحدث عن كيفية الاستفادة من هذا الفورم
و اعتقد ان بعض القراء لهذا الموضوع سيبدعون في الاستفادة من هذا SpyForm في برامجهم
قد يتساءل البعض هل يمكن استخدام الفورم الرئيسي ليعمل بمثابة SpyForm بدون أن نبني كلاس خاص اسمه SpyForm
بالتاكيد يمكن استخدام الفورم الرئيسي و لكن الكود في تلك الحالة سوف يحتاج الي بعض التعديلات القليلة
Test_SpyForm.rar (الحجم : 64.87 ك ب / التحميلات : 90)
مقدمة:
من الأشياء الطريفة جدا و القديمة أيضا في عالم الكمبيوتر هي برنامج عبارة عن صورة متحركة تتحرك خلف الماوس و مثل هذه الأفكار البرمجية البسيطة قد يستمتع بها كثيرا بعض من مستخدمي برامج الكمبيوتر و خاصة الأطفال. و غالبا بعض المبرمجين يستخدمون هذه الأفكار البرمجية لإضفاء مؤثرات لها شكل لطيف علي برامجهم و الهدف من ذلك هو إسعاد المستخدم و جذبه الي برامجهم.
قد يتخيل البعض ان مثل هذه البرامج تحتاج الي مجهود ضخم من المبرمج لكنها و في واقع الأمر عبارة عن برامج بسيطة جدا يمكن كتابتها باستخدام مجموعة من الأسطر القليلة من الكود.
المرحلة الأولي لتنفيذ الفكرة:
لتنفيذ المرحلة الأولي يجب علينا ان نبني فورم بسيط جدا و لنطلق عليه 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 ك ب / التحميلات : 90)