PSet(30,20), vbRedForm1.DrawWidth = 5
Shape1.Shape = 3 Shape1.Height = 5: Shape1.Width = 5 Shape1.BorderColor = vbRed
ولكنى أريد كتابة كود معين عند ضغط المستخدم على هذه النقطة أو هذا ال shape
تمامآ كما نكتب كود عند ضغط المستخدم على أى text أو label
ألا يمكن هذا فى لغة الvb6 ؟
السلام عليكم...
لا يمكن ذلك مع الـ Shape الأصلي الموجود في VB6 لأنه لا يدعم أية أحداث بأصل تصميمه.
تجد في المرفقات 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 و تسجيله في النظام.
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
جزاك الله خيرآ ولك ألف شكر
ولكنى حين قمت بعمل الrun رفض البرنامج وأرسل رسالة خطأ
وحين حاولت عمل ما شرحته مع مرفقك بعد كلمة "*** الاستعمال:" لم أستطع
فياليتك ترفق لى برنامجآ كاملآ
ولك ألف شكر