هذا الدرس لتتعلم كيف تجعل برنامجك ذو طابع جميل لأن المظهر أحيانا يجذب أكثر من المحتوى
وقد يسأل سائل لماذا اخترت هذا النوع من الدروس، فأقول أني رأيت من الناس من يصمم برامج كبيرة وقوية ولكنها تفتقد لكثير من الترتيب والإهتمام بالشكل واختيار الألوان المناسبة والمتناسقة وسهولة الإستخدام.
سنتعلم في هذا الدرس كيفية تلوين الفورم بلون تدريجي
الخطوات:
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
ونرجو أن يوفقنا الله تعالى للأفضل