بسم الله الحمد لله والصلاة والسلام على رسول الله .. أما بعد
أقدم لكم الدرس الأول من سلسلة دروس "فنون تصميم الفورم" والتي تأخذ بيدك إلى
طرق إنتاج برامج بواجهات جميلة منظمة وسهلة الإستخدام تعكس صورة البرنامج وتطفي عليه نوع من الهدوء وتجعل المستخدم يستمتع باستخدامه.
وقد يسأل سائل لماذا اخترت هذا النوع من الدروس، فأقول أني رأيت من الناس من يصمم برامج كبيرة وقوية ولكنها تفتقد لكثير من الترتيب والإهتمام بالشكل واختيار الألوان المناسبة والمتناسقة وسهولة الإستخدام.
هذا وبالإضافة إلى ماسبق فإني أكثر ماأحب من البرمجة هو التفنن في تصميم الفورم من جميع نواحيه لذلك أحببت أن أقدم لكم خبرتي المتواضعة في هذا الطريق.
-------------------------------------------------------------
الدرس الأول:
سنتعلم في هذا الدرس كيفية تلوين الفورم بلون تدريجي
الخطوات:
1- أنشئ مشروع جديد وغير حجم Form1 الذي ينشئ بشكل تلقائي إلى (472; 416)
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
سأترك لك فهم هذه الأسطر ... وأنا جاهز لأي أسئلة
ملاحظة : المشروع مرفق
