الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برنامج الرسومات المعقدة

مغلق
بدأه medofun في 5 نوفمبر 2007 · 4 رد · 734 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

هذا برنامج لرسم الرسومات المعقدة والمتداخلة

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

اريد ان اعمل حفظ للصورة

وتظهر لى رسالة خطاء فلا اعرف ماالمشلكة والرسالة هى overflow

Private Sub Form_Load()

CurrentSelectionTool = 0

btnSelectionTools(CurrentSelectionTool).BorderStyle = 1

--antsBrush(0) = CreatePatternBrush(imgAnts(0).Picture.Handle) antsBrush(1) = CreatePatternBrush(imgAnts(1).Picture.Handle)

canvas.Picture = canvas.Image

canvas.Refresh

CombineMode = RGN_OR

numUndos = 0

NumRedos = 0

End Sub

انا لسة مبتدا برجاء المساعدة فى حل المشكلة وتعديل الكود

toolspont.rar

#2
medofun كتب:
بسم الله الرحمن الرحيم

هذا برنامج لرسم الرسومات المعقدة والمتداخلة

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

اريد ان اعمل حفظ للصورة

وتظهر لى رسالة خطاء فلا اعرف ماالمشلكة والرسالة هى overflow

Private Sub Form_Load()

CurrentSelectionTool = 0

btnSelectionTools(CurrentSelectionTool).BorderStyle = 1

--antsBrush(0) = CreatePatternBrush(imgAnts(0).Picture.Handle) antsBrush(1) = CreatePatternBrush(imgAnts(1).Picture.Handle)

canvas.Picture = canvas.Image

canvas.Refresh

CombineMode = RGN_OR

numUndos = 0

NumRedos = 0

End Sub

انا لسة مبتدا برجاء المساعدة فى حل المشكلة وتعديل الكود

هل الموضوع صعب ولا ايه

برجاء الرد لاهمية الموضوع

#3
medofun كتب:
هل الموضوع صعب ولا ايه

برجاء الرد لاهمية الموضوع

#4

الموضوع ليس صعباً لتلك الدرجة التي تتخيلها لكن يبدو أنك لم تحاول عمل أي شئ وفضلت إنتظار حل جاهز لمدة 24 يوم!!

للتخلص من هذا الخطأ

اقتباس
وتظهر لى رسالة خطاء فلا اعرف ماالمشلكة والرسالة هى overflow

غير تعريف antsBrush كالتالي

Private antsBrush(1) As Long

بالنسبة للتحكم بالخط :

المثال يعتمد إستخدام marching ant line وإن أردت التغيير فحينها ستستغني عن كل ما له علاقة بـ marching ant في المثال .

ستحتاج لتغيير نوع الـ Brush , كمثال

antsBrush(0) = CreateSolidBrush(vbBlack)
antsBrush(1) = CreateSolidBrush(vbBlack)

بالنسبة لعرض الخط ستحتاج لإنشاء Pen جديد (CreatePenIndirect ) وإسناده الى الـ Device Context حيث تتم عملية الرسم ...

راجع Pen Function & Brush Function في MSDN

راجع المثال في الوصلة التالية فسيفيدك كثيراً

http://allapi.mentalis.org/apilist/6EEC4AB...E6A55E4E9A.html

لا تنتظر حل جاهز فلن تتعلم بهذه الطريقة

post-62922-1196307255_thumb.jpg

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#5

cipher

متشكر لك جدا جدا بس انا منتظرتش اى حل جاهز لانى حاولت اكتر من مرة

لانى لسة مبتداء فى البرمجة وانا بدرس برمجة قواعد بيانات فقد يعنى معنديش اى خلفية عن البرامج دة

وانا اشكرك جدا على اهتمامك

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

شكرا

هذا الموضوع مغلق.

مواضيع مشابهة