03-04-15, 08:43 PM
كيف يمكنني مثلا اني اريد تحريك اللايبل من خانة الى خانة اخرى بالماوس
اي مثلا عندي خانتين (أ،ب)
اللايبل في الخانة (أ) و اريد تحريكه للخانة (ب)
اي مثلا عندي خانتين (أ،ب)
اللايبل في الخانة (أ) و اريد تحريكه للخانة (ب)
03-04-15, 08:43 PM
04-04-15, 09:50 PM
allloooooooooooo
06-04-15, 09:45 PM
الا توجد مساعدة اساتذة
07-04-15, 03:34 AM
السلام عليكم
جرب التالي
جرب التالي
كود :
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بالتوفيق
08-04-15, 12:54 AM
شكرا اخي الكريم لكن كيف يمكنني ان اقيد حركة اللايبل ففي الكود الذي تفضلت به يجعلك تحرك اللايبل كما تشاء فكيف مثلا اقيد حركة اللايبل
فمثلا اللايبل يتحرك في النقطة (أ) او (ب) فاذا المستخدم لم يحرك اللايبل الى هذه النقاط فأنه يرجع الى مكانه
فمثلا اللايبل يتحرك في النقطة (أ) او (ب) فاذا المستخدم لم يحرك اللايبل الى هذه النقاط فأنه يرجع الى مكانه
08-04-15, 08:55 AM
أهلا , هذه مثال إضافة على كود الأخ البرنس , يوضح الطريقة .
08-04-15, 02:48 PM
اولا وقبل كل شيء الحمد لله على العودة استاذنا الكريم في انتظار عودة السيد الغالي و anan
اما فيما يخص المثال فهو الشيء المراد
جزاك الله كل الخير انت و الاخAL_BRNS واسقاكم الله من حوض النبي الامين
اما فيما يخص المثال فهو الشيء المراد
جزاك الله كل الخير انت و الاخAL_BRNS واسقاكم الله من حوض النبي الامين
09-04-15, 09:42 PM
استاذ 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
اتمتى ان تكون قد فهمت ما اصبو اليه
(ملاحظة : لقد وضعت هذا الرمز "²" حتى تكون كتابة الكود صحيحة في الرد فقط و لم اضعها اثناء كتابة الكود في البرنامج)
10-04-15, 01:37 AM
أهلا , تم التوضيح في المثال بعد تعديله قليلاً .
10-04-15, 03:10 AM
شكرا استاذنا لقد اتضحت الصورة زادك الله علم فوق علم