|
أزرار أمر ملونة |
المشكلة : في الأكسس لا يمكن تلوين الواجهة الأمامية لأزرار الأمر ما يجعلها تأخذ وضع ثابت في كل البرنامج ، وقد يكون هذا الشكل غير مريح خاصة إذا تم تلوين خلفية النموذج الذي عليه الزر . الطريقة التالية إنشاء صور على شكل أزرار ملونة تشبه في عملها عمل زر الأمر المضمن في الأكسس ، أنظر صورة نموذج عليه الأزرار :

والآن سأشرح كيفية عمل زر وطبق أنت على الشرح .
تقوم فكرة الأزرار على وضع صورتين فوق بعضهما البعض تماماً ، الصورة الأولى من المجموعة العلوية والصورة الثانية من المجموعة السفلية وفوق الجميع تسمية شفافة لغرض كتابة العنوان الذي يظهر فوق الصورة وكذلك استقبال حدث النقر ، وعند ضغط زر الفأرة على التسمية تختفي الصورة العلوية وتظهر الصورة السفلية وتنزل التسمية إلى الأسفل وعند رف زر الفأرة يحدث العكس فتظهر الصورة وكأنها تماثل في عملها عمل زر الأمر المعتاد في الأكسس .
خطوات
الإنشاء :
1- أنسخ أي زر من الأزرار في الجدول التالي من المجموعة السفلية ثم ضع فوقه تماما نفس اللون -إذا أحببت- من المجموعة العلوية :
|
المجموعة العلوية |
المجموعة السفلية |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
حينما تلصق الصورة على النموذج يعطيها الأكسس تسمية لا معنى له مثل Image60 :

|
وفي رأيي الخاص أن تغير الاسم لمعنى مفهوم مثل العلوي_بيانات_الطلاب أو مثلا السفلي_بيانات_الطلاب وهكذا حسب الوظيفة التي يؤديها الزر ، حتى يسهل عليك اختيار الزر المطلوب من القائمة في جهة اليسار عند الحاجة لذلك لأن الصور تتراكب مع بعضها أنظر الصورة :
|
|
2- بعد تغيير اسمي الزرين -الصورتين- الخطوة التالية هي جعل صورة الزر السفلية مخفية وذلك لأننا لا نريد ظهورها سوى عند النقر فقط .
أنقر الزر ثم أظهر صفحة الخصائص وفي خاصية مرئي للزر اختر لا :

|
3- أنشئ تسمية وفي خاصية تسمية توضيحية اكتب العبارة التي تريد ظهورها عليها كعنوان للزر . الآن لابد من تعديل عرض وطول التسمية ليتناسب مع عرض وطول الصور وذلك بالنقر على التسمية ثم ضغط Shift والاستمرار على ضغطها ثم النقر مرة واحدة على أحد صورتي الزر :
|
|
|
أو أنقر على أي مكان فارغ من النموذج بزر الفأرة الأيسر ثم استمر في الضغط وسترى ظهور مربع ، اجعله يمر فوق زر الصورة والتسمية ثم افلت زر الفأرة وسيتم تحديد جميع الكائنات التي مر مؤشر الفأرة من فوقها:
|
|
| بعد تحديد التسمية والصورة كما سبق انقر قائمة تنسيق ثم الحجم ثم إلى الأطول : |
|
|
ثم مرة أخرى قائمة تنسيق ثم الحجم ثم إلى الأعرض : بعد ذلك سيظهر حجم التسمية مماثل تماماً للصورة . |
|
4- الخطوة التالية وضع الصور والتسمية فوق بعضها البعض تماماً :
|
(أ) حدد الصورتين والتسمية كما سبق ثم من قائمة تنسيق انقر محاذاة اختر أي جهة يمين أو يسار . وستظهر كما في الصورة على اليسار . |
|
| (ب) انقر على الأوسط منها ثم قم بتحريكه
للأعلى حتى يكون جزء منه على الأول و افعل بالسفلي منها مثل ذلك بحيث يكون جزء
منه على الأول ، طبعا التحريك
بنقر السهم العلوي عدة مرات :
|
|
| (ج) حدد الجميع كما سبق ثم انقر قائمة تنسيق
ثم محاذاة ثم أعلى فتظهر بهذا الشكل : الخطوات أ و ب وج بإمكانك عملها يدوياً بتحريك الكائنات بالأسهم لكن هذه الطريقة أضبط . |
|
|
(د) الخطوة الأخيرة هي وضع علامة لكل الكائنات الثلاثة ، اترك الكائنات محددات وانقر على قائمة عرض -أو اضغط على F4 - ثم خصائص صفحة التبويب غير ذلك وفي خاصية علامة اكتب 1 أنظر الصورة : |
|
الكود :
1- أختر مربع التسمية من القائمة أو بالنقر عليه ثم أظهر الخصائص وفي صفحة التبويب أحداث في حدث عند الضغط على الماوس اكتب :
|
=ButtonClick(screen.ActiveForm;"1") |
وكرر الأمر مع حدث عند رفع زر الماوس ، أنظر الصورة :

2- وفي الوحدة النمطية الخاصة بالنموذج أكتب :
|
Private Function ButtonClick(frm As
Form, TagName As String) |
ملاحظة :
يجب أن تكون العلامة متساوية في كل الثلاثة الصورة العلوية والصورة السفلية ومربع التسمية . ويصح أن تضع رقم أو نص ولكن يجب أن تختلف العلامة في كل مجموعات الأزرار الأخرى .
|
مثال بالأكسس 97 |
الأمثلة مضغوطة تحتاج إلى برنامج فك الضغط انقر هنا لتحميل البرنامج |
مثال بالأكسس 2000 |
![]()
