[سؤال] اذا لامس عنصر الثاني - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28) +---- الموضوع : [سؤال] اذا لامس عنصر الثاني (/showthread.php?tid=1520) الصفحات:
1
2
|
اذا لامس عنصر الثاني - ahmed3d - 10-01-14 يا شباب محتاج كود او مثال انو يحدث حدث معين اذا لامس العنصر المحدد عنصر اخر مثلا صورة معينة تتحرك بواسطة تايمر لما تلمس الصورة الثانية يظهر مسج بوكس فيه كلمة yes و شكرا.... [/size] هي رح تكون جملة شرطية بس مش عارف كيف اكتب الشرط RE: اذا لامس عنصر الثاني - mounzerlb - 10-01-14 أي صوره أو كباس أو تكست بوكس لهم أبعاد TOP و Left فاذا كان top للصوره يساوي top لتكست بوكس وleft للصوره يساوي left لتكست بوكس عندها يكزن قد لامسها فمثلا كود : If Command1.Top = Picture1.Top And Command1.Left = Picture1.Left Then RE: اذا لامس عنصر الثاني - asto - 11-01-14 او يكون الكود كالتالي : كود : If Command1.Top+ارتفاع الكوماند = Picture1.Top And Command1.Left +عرض الكوماند= Picture1.Left Then RE: اذا لامس عنصر الثاني - ahmed3d - 11-01-14 انا جربت هاي الطريقة قبل ما اسأل لاكن ما نفعت لانو مو شرط يلمسه و يكون نفس التوب و اللفت لاكن بحاول بالطريقة 2 لاني ما جربتها و بشوف و على فكرة انا بعمل على لعبة عشان كذا ما ينفع 1 و اعرف انو الفيجوال بيسك ما ينفع للالعاب لاكن حبيت اجرب يمكن تصير و اهم شي تسلم على الرد RE: اذا لامس عنصر الثاني - mounzerlb - 11-01-14 (11-01-14, 05:54 PM)ahmed3d كتب : انا جربت هاي الطريقة قبل ما اسأل لاكن ما نفعت لانو مو شرط يلمسه و يكون نفس التوب و اللفت لاكن بحاول بالطريقة 2 لاني ما جربتها و بشوف و على فكرة انا بعمل على لعبة عشان كذا ما ينفع 1 و اعرف انو الفيجوال بيسك ما ينفع للالعاب لاكن حبيت اجرب يمكن تصير و اهم شي تسلم على الرد أعتقد الطريقة الثانية عند الملامسة RE: اذا لامس عنصر الثاني - asto - 12-01-14 يوجد ايضا خمس حالات اخرى الثانية هي نفس الاولى لكن يستبدل + ب - و بالنسبة للاولى : Command1.Top+ارتفاع الكوماند = Picture1.Top و ليس كما هيمكتوب اي تعكس في اول مشاركة لي في هذا الموضوع و الثالثة و الرابعة كود : If Command1.Top = Picture1.Top And Picture1.Left =Command1.Left +عرض الكوماند Then و الخامسة و السادسة نفس ما علاه لكن بستبدل + ب - RE: اذا لامس عنصر الثاني - ahmed3d - 12-01-14 كلام استو صحيح بس مو هاذي الطريقة الي تفيدني لانو ممكن يلامس الزر الصورة بشكل قطري او شكل قطري بس مو منتظم انا بحط مثال عشانتعرفوا قصدي صح كلامك اخي استو بس ممكن طلب انك تكتبلي الاكواد جميعها عشاني مش فاهم كثير RE: اذا لامس عنصر الثاني - asto - 12-01-14 كود : If Picture1.Top= Command1.Top+ارتفاع الكوماند And Picture1.Left=Command1.Left +عرض الكوماند Then RE: اذا لامس عنصر الثاني - ahmed3d - 13-01-14 اخي للأسف الكود ما فادني كثير المهم انا حطيت مثال ارجو حل للمشكله توقعت انو يكون كودها سهل بس طلع صعب خخخخخخ المثال RE: اذا لامس عنصر الثاني - asto - 14-01-14 هذا الكود يعمل مع تحريك الكوماند كود : Dim SSX As Integer |