تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] [تم الحل] تحريك الكائن
#1
هلا  Heart
اريد كود بحيث يحرك البانل ع حركة الماوس
باوع عل الصوره بلكي تفهمني 
وشكرا  Heart

 
هم يسرقون والقانون كتب لنا...
بعض اسهاماتي

الرد
تم الشكر بواسطة:
#2
هذا الكود من هذا الموضوع للاستاذ ahmadpal ولكن قمت بتنظيمه ليكون واضح
كود تحريك الفورم من خلال سحبه بالماوس


Dim x, y As Integer
Dim newpoint As New Point

Private Sub Panel1_Mousemove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
    x = Control.MousePosition.X - sender.Location.X
    y = Control.MousePosition.Y - sender.Location.Y
End Sub

Private Sub Panel1_MouseMove1(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
    'في الماوس موف للفور نكتب الكود التالي
    If e.Button = Windows.Forms.MouseButtons.Left Then
        newpoint = Control.MousePosition
        newpoint.X -= x
        newpoint.Y -= y
        sender.Location = newpoint
        Application.DoEvents()
    End If
End Sub
الرد
تم الشكر بواسطة: elgokr , elgokr , DK-x , ابو روضة
#3
Heart 
يسلمو اغاتي مقصرت  Heart
هم يسرقون والقانون كتب لنا...
بعض اسهاماتي

الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : تساؤل حول إستعمال مكتبة الديف إكسبرس عبد العزيز البسكري 1 70 13-10-19, 02:06 AM
آخر رد: Rabeea Qbaha
  ظهور رسالة في حالة عدم لمس لوحة المفاتيح او تحريك الماوس بعد مدة معينة atefkhalf2004 2 107 09-10-19, 06:21 PM
آخر رد: Rabeea Qbaha
  [ تمّ الحل ] : الوزن المثالي عبد العزيز البسكري 9 244 03-10-19, 09:00 PM
آخر رد: asemshahen5
  تمّ الحل : تغيير تسمية المشروع بصفة كاملة عبد العزيز البسكري 6 262 11-09-19, 01:38 AM
آخر رد: عبد العزيز البسكري
  مشكله غريبه فى اكواد الفجوال لا اعلم ان كانت قد واججهتكم قبل ذلك او لا(تم الحل) خالد كامل1 9 409 06-08-19, 02:29 AM
آخر رد: أمجد وضاح
  [ تمّ الحل ] : إختفاء الأدوات داخل الفورم عبد العزيز البسكري 7 421 10-06-19, 02:05 PM
آخر رد: sendbad100
  [ تمّ الحل ] : تنسيق التاريخ بقاعدة البيانات : الأكسس عبد العزيز البسكري 16 1,234 03-06-19, 11:56 AM
آخر رد: سعود
  تم الحل : اضافة ازرار التنقل بين السجلات محمد خيري 5 392 26-04-19, 06:16 PM
آخر رد: elgokr
  تم الحل : تحويل كود لى الدوت نت العيدروس 9 451 24-04-19, 05:08 AM
آخر رد: elgokr
Rainbow (تم الحل )احتاج مساعدة حول خطأ system.accessviolationexception was unhandled dametucorazon 5 298 22-04-19, 12:47 AM
آخر رد: elgokr

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


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