huda kadoom

:(

موضــــــــــــــــــــــــــــوع رائـــــــــــــــــــــــــــــــــــــــــــع

اقصد اجراء لخوارزمية dda لرسم الخط المستقيم يمكنك استدعاء الايعاز الجاهز لرسم المستقيم اربع مرات   Private Sub Form_Activate() X1 = 50 Y1 = 50 p1.Line (X1, Y1)-(X1 + 290, Y1), 200 p1.Line (X1 + 290, Y1)-(X1 + 290, Y1 + 290), 200 p1.Line (X1 + 290, Y1 + 290)-(X1, Y1 + 290), 200 p1.Line (X1, Y1 + 290)-(X1, Y1), 200 '"رسم المربع الكبير" p1.Line (X1 + 100, Y1 + 100)-(X1 + 150, Y1 + 100), 77 p1.Line (X1 + 150, Y1 + 100)-(X1 + 150, Y1 + 150), 77 p1.Line (X1 + 150, Y1 + 150)-(X1 + 100, Y1 + 150), 77 p1.Line (X1 + 100, Y1 + 150)-(X1 + 100, Y1 + 100), 77 "رسم المربع الصغير الذي يتحرك اينما يقف الماوس شرط داخل المربع الكبير" End Sub

اعتذر فأنا عضوه جديده

شكرا اخي العزيز   Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = vbLeftButton Then Shape1.Move X - Shape1.Width \ 2, Y - Shape1.Height \ 2 End If End Sub  هذا الكود هو المطلوب من فضلك  هل تستطيع صياغتهه بدون استعمال  shape1 مع بعض الاضافات حيث نرسم مربع صغير بأستدعاء اجراء dda اربع مرات وتحريك المربع الصغير   يكون محدد بأبعاد الماوس داخل مربع كبير  مرسوم  داخل picture1 باستدعاء dda اربع مرات   اسفة على الاطاله لكن اعذرني فانا مبتدئه وهذا اول مشروع لي وارجو منك المساعدة

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

كيفية كتابة كود لمربع يتحرك بأبعاد الماوس بلغة vb 6؟؟؟؟ فعندما نضغط على مكان معين بالماوس داخل picture يتحرك المربع بأتجاه      مــــــــــــــــــــــــــــــــــــــــع الشكـــــــــــــــــــر والتقـــــــــــــــــــــــدير

 السلام عليكم    كيفية كتابة كود مربع يتحرك بأبعاد الماوس بلغة vb 6؟؟  ارجو  منكم المساعدة مع جزيل الشكرردتبليغتعديل  

السلام عليكم  ارجو المساعدة في كتابة كود مربع يتحرك بأبعاد الماوس بلغة vb 6

السلام عليكـــــــــــــــــــــم