منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] [تم الحل] تحريك الكائن - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] [تم الحل] تحريك الكائن (/showthread.php?tid=29323)

[تم الحل] تحريك الكائن - DK-x - 10-04-19

هلا  Heart
اريد كود بحيث يحرك البانل ع حركة الماوس
باوع عل الصوره بلكي تفهمني 
وشكرا  Heart

 

RE: تحريك الكائن - بدري - 10-04-19

هذا الكود من هذا الموضوع للاستاذ 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

RE: تحريك الكائن - DK-x - 11-04-19

يسلمو اغاتي مقصرت  Heart