مرحبا .. بدي اعمل برنامج للرسم .. ويكون شكل الفورم صورة وبجانبها او تحتها مجموعة من الالوان ويقوم المستخدم باختيار اللون ثم تلوين الرسمة .. اريد ان اعرف الكود لهذا البرنامج في كلا الحالتين سواء استخدمت القلم او التعبئة في طريقة التلوين وهل هناك نوع معين من الصور استخدمه
برنامج تلوين
مغلق
اتمنى ان يعجبك اخي
*************************************************
**************************************************
مصطفى زيداني
أتمنى ان يفي هذا البرنامج في الغرض
منتديات كوكب الكمبيوتر
لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية
شكراً لكما اخى مصطفى واخى شادى :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
شكرا .. ولن انا اختك :D
بالنسبة لبرنامج الرسام العربي فهو أكبر من امكانياتي .. مع الشكر .. اما البرنامج الاخر فهو تماما ما اريده ولكن اريد ان اعرف لماذا خطوط الرسم تكون منقطة وهل هناك نوع معين من الصور يجب استخدامه .. واخيرا ارجو شرح الكود بشكل عام .. مع الشكر
Private Sub Form_Load()
Picture1.FillStyle = vbSolid
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Circle (X, Y), 3, Label1.BackColor
End If
End Sub
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Label1.BackColor = Picture2.Point(X, Y)
End If
End Sub
اقتباسشكرا .. ولن انا اختك
شكراً اختى العزيزة ايمى :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
مشكورين يا جماعه على المشروعات الجميله
اولا في الفورم لود
picture1.fillstyle=vbsloid
معناها ان اي نقطة سوف ترسم على الاداة لن تكون فارغة من الداخل وبالتالي ستكون كأنه جسم صلب
اما في الحدث mousemove
if button=1 then
معناها انه اذا كان الزر الأ يسر للماوس مضغوطا فإنه
picture1.circle(x,y),3,label1.backcolor
سيقوم برسم دوائر في المكان x,y وهي قيم متغيرة نصف قطر الدائرة 3 بالبكسل ولونها هو اللون الموجود في الليبل بجانب الالوان وسيتم التلوين كلما تحركت في الأداة بشرط ان يكون الزر الأيسر للماوس مضغوطا بحث يمكنك تلوين الجزء الذي تريده
end if
اما بالنسبة للحدث mousedpwn
معناه انه سيتم اختيار اللون من قائمة الالوان اذا ضغطت على اللون المطلوب بالزر اليسر للماوس
اتمنى ان يكون الشرح مفهوم
*************************************************
**************************************************
مصطفى زيداني
واضح جدا اشكرك .. ولكن لماذا الخطوط تكون منقطة عند الرسم... هل نوع الصورة السبب ؟؟؟
picture1.circle
سيتم التلوين على هيئة دوائر
*************************************************
**************************************************
مصطفى زيداني
فيه برنامج بسيط جدا ولكن يعطي اشوي 3D
وهو يحتاج الى Image كثير لكي يصبح 3D ولكن مو كثيرررر
مرحبا ... البرنامج عندي بفضل الاخ مصطفى زيداني بعد الله .. ولكن مشكلتي لماذا عندما ارسم لا يكون الخط متصل وسلس .. شكله يكون منقط .. وهل نوع الصور هو السبب .. وما هي انواع الصور التي يجب استخدامها لو كان لها تاثير حتى يقوم البرنامج بالتلوين عليها .. اكرر شكري الجزيل للجميع وللاخ مصطفى خاصة
هذا الموضوع مغلق.