جمالية الفورم

هذا الدرس لتتعلم كيف تجعل برنامجك ذو طابع جميل لأن المظهر أحيانا يجذب أكثر من المحتوى

وقد يسأل سائل لماذا اخترت هذا النوع من الدروس، فأقول أني رأيت من الناس من يصمم برامج كبيرة وقوية ولكنها تفتقد لكثير من الترتيب والإهتمام بالشكل واختيار الألوان المناسبة والمتناسقة وسهولة الإستخدام.

سنتعلم في هذا الدرس كيفية تلوين الفورم بلون تدريجي

الخطوات:

1- أنشئ مشروع جديد وغير حجم Form1 الذي ينشئ بشكل تلقائي إلى 472; 416

أضف هذا الامر في اعلا صفحة الكود

كود :

Imports System.Drawing.Drawing2D

2- أكتب في حدث التحميل (Form1_Load) السطر التالي:

كود :

Me.BackgroundImage = GetGraphicsObject(Me.Width, Me.Height)

يقوم هذا السطر بوضع صورة لخلفية الفورم يتم رسمها باستدعاء دالة الرسم (GetGraphics)

وهذه تعيد لنا صورة حجمها مماثل لحجم الفورم (لأننا أرفقنا في الإستدعاء متغيرين

وهما يمثلان طول وعرض الفورم ) ويتم بعد ذلك إسناد الصورة المرتجعة لخلفية الفورم

3- أنشئ تحت حدث التحميل دالة الرسم (GetGraphics) كالتالي

كود :

Public Function GetGraphicsObject(ByVal W As Int16, ByVal H As Int16) As Image

End Function

واكتب فيها الأسطر التالية

كود:

Dim bmp As Bitmap

bmp = New Bitmap(W, H)

Dim G As Graphics = Graphics.FromImage(bmp)

Dim R As New RectangleF(0, 0, W, H)

Dim startColor As Color = Color.LightSkyBlue 'يمكنك من هنا اختيار أي لون يبدأ التلوين به

Dim EndColor As Color = Color.DarkBlue 'يمكنك من هنا اختيار أي لون ينتهي التلوين به

Dim LGBrush As New System.Drawing.Drawing2D.LinearGradientBrush(R, startColor, EndColor, LinearGradientMode.Vertical)

G.FillRectangle(LGBrush, New Rectangle(0, 0, W, H))

Return bmp

ونرجو أن يوفقنا الله تعالى للأفضل