منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[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

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   mouseX = X
   mouseY = Y
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = vbLeftButton Then
        Label1.Left = Label1.Left + X - mouseX
        Label1.Top = Label1.Top + Y - mouseY
   End If
End Sub
بالتوفيق


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

شكرا استاذنا لقد اتضحت الصورة زادك الله علم فوق علم