هذه هديه متواضعه لكم امل ان تحوز على رضاكم لا سيما ان الاكسيس بشاشته الرماديه التي لا يمكن تغييرها الا بالكود فإليكم الطريقه بالتفصيل كل ما عليك هو استيراد الوحدات النمطيه الثلاث الى نموذجك ومن ثم نسخ الكود عند حدث تغير الحجم والتعديل في الارقام الخاصه به .
يوجد في الكود ثلاثة ارقام بداية وثلاثة ارقام نهايه عدل فيها على كيفك لينتج لديك ملايين الالوان هذه الالوان على شكل بتماب BitMap وحجمها لا يتعدى 40 بايت بدلا من وضع صوره او الوان خلفيه للنموذج حسب الكود الموضح بالاسفل
'ضع هذا الكود في خانة الجينرال في اعلى الصفحه من حدث عند تغيير الحجم
Option Compare Database
Option Explicit
'ضع هذا الكود في حدث عند تغير الحجم
Private Sub Form_Resize()
If Me.WindowHeight < 500 Then Exit Sub
GradientBackground Me, RGB(32, 0, 64), RGB(180, 0, 255), GRADIENT_FILL_RECT_V
End Sub
قم بإزالة الاكواد المتشابهه مثل
Option Compare Database
Private Sub Form_Resize()
End Sub
حتى لا يحدث لديك خطأ في الكود
ستجد في اخر الكود الكلمات التالية
RECT
وهي اختصار لمستطيل Rectangle وهي خاصه بالالوان وليس النموذج يعني الوان طوليه وتأخذ احد الامرين H يعني افقي او V وتعني عامودي . وتجد ايضا في اخر كلمات الكود العباره التاليه
TRIANGLE وتعني الوان على شكل مثلث اي تقسم النموذج بشكل قطري من الركن العلوي الايمن الى الركن السفلي الايسر ولا تحتوي على اي معامل كما هو الحال في الالون المستطيله .
قمت بعمل خمسة نماذج غاية في الروعه تستطيع التعديل عليها بما يناسبك وعلى حسب ذوقك فقط افتح النموذج في عرض التصميم ثم اختر خصائص ثم اختر تبويب حدث ومنه اختر حدث عند تغير الحجم وغير في الارقام الثلاثه الاولي والثلاثه الاخيره بارقام عشوائيه بحيث لا تزيد عن الرقم 255 لانه لون RGB وهي الاحمر والاخضر والازرق
اختكم
زهره
ملف مرفق(ملفات)
MYCOLOR.rar (52.22كيلو )