+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أمثلة ومشاريع vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=30)
+---- الموضوع : مكون Shape يستجيب للأحداث (/showthread.php?tid=1171)
مكون Shape يستجيب للأحداث - ناجي إبراهيم - 04-12-13
السلام عليكم...
نعلم أن الـ Shape الأصلي الموجود في VB6 لا يدعم أية أحداث بأصل تصميمه. فمثلاً لا يمكننا كتابة كود Click أو MouseDown خاص به.
* كنت ألجأ أحياناً إلى خدعة وضع Label شفاف فوقه من أجل كتابة تلك الأحداث!
تجدون في المرفقات UserControl باسم TShape (الملف TShape.ctl) و هو عبارة عن مكون Shape مخصص:
أ. الخصائص:
1. الخاصية Shape: تحدد نوع الشكل، و قيمها هي:
= sscRectangle: شكل رباعي (مستطيل أو مربع، حسب العرض Width و الارتفاع Height).
= sscRoundRect: شكل رباعي مستدير الزوايا.
= sscOvalShape: شكل بيضاوي أو دائرة (حسب العرض Width و الارتفاع Height).
= sscSingleDot: نقطة (حجمها يعتد على العرض Width و الارتفاع Height).
* (طبعاً القيم السابقة تظهر تلقائياً في نافذة الخصائص).
* الافتراضي sscRectangle أي شكل رباعي.
2. الخاصية BorderSize. تحدد حجم خط إطار الشكل (بوحدة البكسل). الافتراضي 1 بكسل.
3. الخاصية BorderColor: تحدد لون الإطار. الافتراضي أسود. هذه الخاصية ليس لها تأثير إذا كان نوع الشكل نقطة (Shape = sscSingleDot).
4. الخاصية Color: تحدد لون الشكل. القيمة الافتراضية أبيض. إذا كان نوع الشكل هو نقطة (Shape = sscSingleDot) فإن تغيير هذه الخاصية يؤدي تلقائياً إلى تغيير الخاصية BorderColor إلى نفس اللون (ليس للنقطة حد أو إطار خارجي).
5. الخاصية Transparent: تحدد شفافية وسط الشكل. القيمة الافتراضية False أي أن الشكل غير شفاف. ليس لهذه الخاصية تأثير عندم يكون نوع الشكل هو نقطة (Shape = sscSingleDot) حيث لا توجد نقطة شفافة.
ب. الأحداث:
تدعم الأداة الأحداث التالية: Click و DblClick و MouseDown و MouseMove و MouseUp و Resize.
* يجب الانتباه إلى أن الاستجابة لهذه الأحداث - باستثناء الحدث Resize - تحدث عندما يكون مؤشر الفأرة على جزء غير شفاف من الأداة. مثلاً إذا كان الشكل عبارة عن مستطيل شفاف فإن الاستجابة لأحداث الفأرة تحدث فقط عند النقر على حده الخارجي، أم وسطه فلن يستجيب لأنه شفاف و لا يعتبر جزءاً من الشكل.
*** الاستعمال:
1. أضف الملف TShape.ctl إلى المشروع.
2. ستلاحظ إضافة رمز مكون جديد إلى صندوق المكونات.
3. يجب أن تكون نافذة تصميم المكون مغلقة لتتمكن من إضافته إلى الـ Form.
* طبعاً يمكن تحويل هذا الـ UserControl إلى ActiveX Control و تسجيله في النظام.
نرجو الاستفادة و السلام.
RE: مكون Shape يستجيب للأحداث - ali.alfoly - 04-12-13
السلام عليكم ورحمة الله
جزاك الله خيرا اخي ناجي
وزادك من علمه
RE: مكون Shape يستجيب للأحداث - VB_Coder - 05-12-13
السلام عليكم
- مبدع ومتألق كالعادة , يعطيك العافيه .
- تحياتي .
RE: مكون Shape يستجيب للأحداث - اسلام الكبابى - 29-08-15
الأستاذ أستاذ طول عمره