[vb6.0] تحريك الاشياء بالماوس - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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) +---- الموضوع : [vb6.0] تحريك الاشياء بالماوس (/showthread.php?tid=11944) |
تحريك الاشياء بالماوس - larbihamri - 03-04-15 كيف يمكنني مثلا اني اريد تحريك اللايبل من خانة الى خانة اخرى بالماوس اي مثلا عندي خانتين (أ،ب) اللايبل في الخانة (أ) و اريد تحريكه للخانة (ب) RE: تحريك الاشياء بالماوس - larbihamri - 04-04-15 allloooooooooooo RE: تحريك الاشياء بالماوس - larbihamri - 06-04-15 الا توجد مساعدة اساتذة RE: تحريك الاشياء بالماوس - AL_BRNS - 07-04-15 السلام عليكم جرب التالي كود : Dim mouseX As Integer, mouseY As Integer بالتوفيق
RE: تحريك الاشياء بالماوس - larbihamri - 08-04-15 شكرا اخي الكريم لكن كيف يمكنني ان اقيد حركة اللايبل ففي الكود الذي تفضلت به يجعلك تحرك اللايبل كما تشاء فكيف مثلا اقيد حركة اللايبل فمثلا اللايبل يتحرك في النقطة (أ) او (ب) فاذا المستخدم لم يحرك اللايبل الى هذه النقاط فأنه يرجع الى مكانه RE: تحريك الاشياء بالماوس - Ahmed_Mansoor - 08-04-15 أهلا , هذه مثال إضافة على كود الأخ البرنس , يوضح الطريقة . RE: تحريك الاشياء بالماوس - larbihamri - 08-04-15 اولا وقبل كل شيء الحمد لله على العودة استاذنا الكريم في انتظار عودة السيد الغالي و anan اما فيما يخص المثال فهو الشيء المراد جزاك الله كل الخير انت و الاخAL_BRNS واسقاكم الله من حوض النبي الامين RE: تحريك الاشياء بالماوس - larbihamri - 09-04-15 استاذ Ahmed_Mansoor
والله انا محير من المرفق الذي ارسلته لي حيث ان هناك كود و هو كالاتي Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)²
If Label1.Left < Label2.Left) And _² )
Label1.Left + Label1.Width) > (Label2.Left + Label2.Width) And _² )
Label1.Top > Label2.Top And
Label1.Top + Label1.Height) < (Label2.Top + Label2.Height) Then)
Label1.BorderStyle = 1
Exit Sub
End If
الي محيرني اني لو جمعت قيم اللايبل 1 و اللايبل2 تكون النتيجة كالاتي 'left 120 < 3960 'top+width :615 > 4035 'top: 120>960 'top+hight :375<1395 اتمتى ان تكون قد فهمت ما اصبو اليه (ملاحظة : لقد وضعت هذا الرمز "²" حتى تكون كتابة الكود صحيحة في الرد فقط و لم اضعها اثناء كتابة الكود في البرنامج) RE: تحريك الاشياء بالماوس - Ahmed_Mansoor - 10-04-15 أهلا , تم التوضيح في المثال بعد تعديله قليلاً . RE: تحريك الاشياء بالماوس - larbihamri - 10-04-15 شكرا استاذنا لقد اتضحت الصورة زادك الله علم فوق علم |