طلب شيفرة لإظهار رسالة عندما تقترب أداة من أداة..ادخل لتفهم أكثر

على فرض أن اداة Line افقية اى Line.y1 = Line.y2

if picture.top =line.y1  then msgbox "Crshhhhhhhhhh"

أما اذا كانت رأسية ناحية اليسار Line.x1 = Linex2

if picture.left =line.x1  then msgbox "Crshhhhhhhhhh"

أولاً شكرا على الرد أخي عبد الفتاح

ما ظبطت الشيفرة تبعتك..يبدو لأنك متخيل ترتيب غير يللي في الحقيقة

يعني أنا عندي حوالي 20أداة line وبعضها أفقي والآخر عمودي ومرتبين من line 1 إلى line 20 والأداة line لا تحوي بداخلها شيفرة يعني لازم أكتب داخل الصورة كود يجعله كل ما يقترب من أي خط من الخطوط يظهر له رسالة

يعني بدون التفريق بين الخط العمودي والأفقي

أريد شيفرة إذا اصطدمت الصورة بأي خط من الخطوط يظهر لي رسالة

وشكرا لك

وعليكم السلام ورحمة الله وبركاته ...

بقولك ايه أخي ,, ايه رأيك لو ترفق المشروع بتاعك لمزيد من التوضيح ؟؟

وشكرا

السلام عليكم ورحمة الله وبركاته

وكل عام وانتم بخير والحمد لله على رجوع المنتدى من جديد :rolleyes:

التعرف على التصادم باستعمال الديركت اكسس يصعب الأمر خاصة علينا أخ محمد لكنه ضروري عند العمل في البعد الثالث والأخ أظنه يريد تطبيق التصادم في 2D

أعجبتني دالة وجدتها عندي وأردت ادراجها للأفادة هنا

Public Function Collision(Control1 As Control, Control2 As Control) As Boolean
If Control1.Top + Control1.Height >= Control2.Top And Control1.Top <= Control2.Top + Control2.Height And Control1.Left + Control1.Width >= Control2.Left And Control1.Left <= Control2.Left + Control2.Width Then
Collision = True
Else
Collision = False
End If
End Function

بالتوفيق للجميع

طيب رح أشوف شيفرة الأخ dreamnet بعدين إذا ما ظبط بألحق البرنامج أخي علاء..

أخي الكريم dreamnet أولاً هل أضع هذه الشيفرة في أداة picture وفي أي حدث؟؟وأضعها متل ما هيي؟؟

أخي msayed2004 :الموقع أجنبي وما فهمت المطلوب..يعني أنا في (شبر)مي بغرق.. :D

على كل حال هي البرنامج مشان التوضيح أكثر

the_game.rar