16-10-12, 02:54 AM
السلام عليكم...
قمت بتصميم UserControl - لرسم خط - و أرجو أن يلبي طلبك. دبعاً يمكنك إجراء التعديلات التي تراها أنسب لبرنامجك، لكني أعتقد أنه يكفي.
لم أجعله OCX حتى لا تضطر إلى إرفاقه مع برنامجك عند توزيعه كملف تنفيذي للعمل على أجهزة أخرى! و مع ذلك يمكنك طبعاً تحويله إلى ملف OCX.
1. تجد في المرفقات ملفين. انسخهما إلى مجلد المشروع.
2. في VB اختر الأمر Add User Control من القائمة Project.
3. في نافذة Add User Control انتقل إلى الصفحة Existing و ابحث عن الملف TdsLine.ctl في مجلد المشروع. حدد المف ثم انقر Open لإضافته إلى المشروع.
* سيضاف إلى صندوق المكونات (Components) رمز لمكون جديد اسمه TdsLine.
4. أضف المكون كما تضيف المكونات الأخرى.
** ملاحظات: تقوم VB تلقائياً بتعطيل رمز المكون في صندوق المكونات إذا فتحنا نافذة تصميم المكون، أما فتح نافذة الكود الخاصة بالمكون فلا تؤدي إلى تعطيل رمزه في صندوق المكونات. لهذا يجب إغلاق نافذة تصميم المكون عندما تريد إضافة نسخة منه إلى الـ Form (هذا سلوك VB و لا علاقة له بالمكون في حد ذاته).
** يحتوي الكود على شرح شبه مفصل باللغة العربية.
* فيما يلي ملخص لخصائص المكون:
= الخاصية LineDirection: تحديد اتجاه رسم الخط: أفقي، رأسي، مائل نحو الأسفل، أو مائل نحو الأعلى.
= الخاصية HeadOffsetPixels: تحديد المسافة - بوحدة البكسل - بين كل رأس من رأسي الخط و الحد الخارجي للمكون.
= الخاصية DoubleClickEffect: تحديد تأثير النقر المزدوج على المكون: لا شيء، إظهار / إخفاء مقابض التحجيم، أو تغيير اتجاه رسم الخط.
= الخاصية EnterExitEffect: تحديد سلوك الدخول إلى المكون (GotFocus) و الخروج منه (LostFocus): لا شيء، أو إظهار مقابض التحجيم عند الدخول و إخفاؤها عند الخروج.
= الخاصية HandleVisibilityMode: تحديد كيفية إظهار مقابض التحجيم: استعمال النقر المزدوج للإظهار و الإخفاء، دائماً ظاهرة، أو دائماً مخفية.
= الخاصية LineStyle: تحديد نمط رسم الخط: متصل، منقط، شرطات، أو شرطات و نقط.
= الخاصية LineColor: تحديد لون الخط.
= الخاصية LineWidth: تحديد سُمك أو عرض الخط - بوحدة البكسل - بين 1 و 7 بكسل.
*** باعتبار أن المكون صغير من ناحية التصميم و حجم الكود فإنه يمكن للإخوة المبتدئين الاستفادة منه في تعلم كيفية تصميم مكونات خاصة بهم.
نرجو الاستفادة و السلام.
قمت بتصميم UserControl - لرسم خط - و أرجو أن يلبي طلبك. دبعاً يمكنك إجراء التعديلات التي تراها أنسب لبرنامجك، لكني أعتقد أنه يكفي.
لم أجعله OCX حتى لا تضطر إلى إرفاقه مع برنامجك عند توزيعه كملف تنفيذي للعمل على أجهزة أخرى! و مع ذلك يمكنك طبعاً تحويله إلى ملف OCX.
1. تجد في المرفقات ملفين. انسخهما إلى مجلد المشروع.
2. في VB اختر الأمر Add User Control من القائمة Project.
3. في نافذة Add User Control انتقل إلى الصفحة Existing و ابحث عن الملف TdsLine.ctl في مجلد المشروع. حدد المف ثم انقر Open لإضافته إلى المشروع.
* سيضاف إلى صندوق المكونات (Components) رمز لمكون جديد اسمه TdsLine.
4. أضف المكون كما تضيف المكونات الأخرى.
** ملاحظات: تقوم VB تلقائياً بتعطيل رمز المكون في صندوق المكونات إذا فتحنا نافذة تصميم المكون، أما فتح نافذة الكود الخاصة بالمكون فلا تؤدي إلى تعطيل رمزه في صندوق المكونات. لهذا يجب إغلاق نافذة تصميم المكون عندما تريد إضافة نسخة منه إلى الـ Form (هذا سلوك VB و لا علاقة له بالمكون في حد ذاته).
** يحتوي الكود على شرح شبه مفصل باللغة العربية.
* فيما يلي ملخص لخصائص المكون:
= الخاصية LineDirection: تحديد اتجاه رسم الخط: أفقي، رأسي، مائل نحو الأسفل، أو مائل نحو الأعلى.
= الخاصية HeadOffsetPixels: تحديد المسافة - بوحدة البكسل - بين كل رأس من رأسي الخط و الحد الخارجي للمكون.
= الخاصية DoubleClickEffect: تحديد تأثير النقر المزدوج على المكون: لا شيء، إظهار / إخفاء مقابض التحجيم، أو تغيير اتجاه رسم الخط.
= الخاصية EnterExitEffect: تحديد سلوك الدخول إلى المكون (GotFocus) و الخروج منه (LostFocus): لا شيء، أو إظهار مقابض التحجيم عند الدخول و إخفاؤها عند الخروج.
= الخاصية HandleVisibilityMode: تحديد كيفية إظهار مقابض التحجيم: استعمال النقر المزدوج للإظهار و الإخفاء، دائماً ظاهرة، أو دائماً مخفية.
= الخاصية LineStyle: تحديد نمط رسم الخط: متصل، منقط، شرطات، أو شرطات و نقط.
= الخاصية LineColor: تحديد لون الخط.
= الخاصية LineWidth: تحديد سُمك أو عرض الخط - بوحدة البكسل - بين 1 و 7 بكسل.
*** باعتبار أن المكون صغير من ناحية التصميم و حجم الكود فإنه يمكن للإخوة المبتدئين الاستفادة منه في تعلم كيفية تصميم مكونات خاصة بهم.
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
