منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : رسم الخط او تحرير الخط بعد تنفيذ البرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم
المطلوب تحريك خط من نقطة الى نقطة اخرى بعد تنفيذ البرنامج
مثال في المرفقات..ارجو ان يكون السؤال واضح.. تحياتي للجميع..
اطلعت على الملف وحاولت اساعدك اخي
لاني مستخدم جديد للــ vb6 شوف المرفقات
لقد قمت بالتعديل ولكن ليس برسم الخط بسحب بالموس ولكن بعمل كليك علي النقطة فيرسم الخط.

وهذا عن طريق تحديد الـ x1,x2,y1,y2 للـline1

وهناك طريقة أخري برسم الخط بالموس وليس سحبه. إن أردتها أرسلتها لك.

وندعو الأخوة الكرام لمن يعلم طريقة رسم الخط بسحبه كما في برنامج الرسام فليشارك وله جزيل الشكر.
عمر الدعيس كتب :اطلعت على الملف وحاولت اساعدك اخي
لاني مستخدم جديد للــ vb6 شوف المرفقات

مشكور اخي عمر على المشاركة ولكن اخي الكريم هذه الطريقة اقصد خاصيةالظهور والاخفاء لاتخدم البرنامج لان النقاط تكون في احداثي على شبكة الاحداثيات..مره اخى اشكرك على المساعدة.

عبدالله الصافي كتب :لقد قمت بالتعديل ولكن ليس برسم الخط بسحب بالموس ولكن بعمل كليك علي النقطة فيرسم الخط.

وهذا عن طريق تحديد الـ x1,x2,y1,y2 للـline1

وهناك طريقة أخري برسم الخط بالموس وليس سحبه. إن أردتها أرسلتها لك.

وندعو الأخوة الكرام لمن يعلم طريقة رسم الخط بسحبه كما في برنامج الرسام فليشارك وله جزيل الشكر.

مشكور اخي عبدالله على المساعدة.ارجو تحميل الملف مره اخرى لان الفورم غير موجود فقط البروجكت..ولو تفضلت ترسل طريقة رسم الخط .اكرر شكري لك.
السلام عليكم...

قمت بتصميم 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 - لرسم خط - و أرجو أن يلبي طلبك. .

استاذي الكريم ناجي ابراهيم اسال الله تعالى الكريم ان يوفقك.واشكرك على هذه المساعدة وهذا التصميم والشرح .
هذا المطلوب وانا سوف اعدل حسب حاجة برنامجي.مره اخرى مقدر لك هذه المساعدة واكرر شكري وتقديري لك.والسلام عليكم....