تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] تحريك الاشياء بالماوس
#1
كيف يمكنني مثلا اني اريد تحريك اللايبل من خانة الى خانة اخرى بالماوس
اي مثلا عندي خانتين (أ،ب)
اللايبل في الخانة (أ) و اريد تحريكه للخانة (ب)
الرد }}}
تم الشكر بواسطة:
#2
allloooooooooooo
الرد }}}
تم الشكر بواسطة:
#3
الا توجد مساعدة اساتذة
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

جرب التالي

كود :
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
بالتوفيق
الرد }}}
تم الشكر بواسطة: larbihamri
#5
شكرا اخي الكريم لكن كيف يمكنني ان اقيد حركة اللايبل ففي الكود الذي تفضلت به يجعلك تحرك اللايبل كما تشاء فكيف مثلا اقيد حركة اللايبل
فمثلا اللايبل يتحرك في النقطة (أ) او (ب) فاذا المستخدم لم يحرك اللايبل الى هذه النقاط فأنه يرجع الى مكانه
الرد }}}
تم الشكر بواسطة:
#6
أهلا , هذه مثال إضافة على كود الأخ البرنس , يوضح الطريقة .


الملفات المرفقة
.rar   Moving_Control.rar (الحجم : 1.71 ك ب / التحميلات : 52)
الرد }}}
تم الشكر بواسطة: larbihamri
#7
اولا وقبل كل شيء الحمد لله على العودة استاذنا الكريم في انتظار عودة السيد الغالي و anan
اما فيما يخص المثال فهو الشيء المراد
جزاك الله كل الخير انت و الاخAL_BRNS واسقاكم الله من حوض النبي الامين
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , AL_BRNS
#8
استاذ 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
اتمتى ان تكون قد فهمت ما اصبو اليه

(ملاحظة : لقد وضعت هذا الرمز "²"  حتى تكون كتابة الكود صحيحة في الرد فقط و لم اضعها اثناء كتابة الكود في البرنامج)
الرد }}}
تم الشكر بواسطة:
#9
أهلا , تم التوضيح في المثال بعد تعديله قليلاً .


الملفات المرفقة
.rar   Moving_Control_2.rar (الحجم : 2.26 ك ب / التحميلات : 45)
الرد }}}
تم الشكر بواسطة: larbihamri
#10
شكرا استاذنا لقد اتضحت الصورة زادك الله علم فوق علم
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم