هلا
اريد كود بحيث يحرك البانل ع حركة الماوس
باوع عل الصوره بلكي تفهمني
وشكرا
[كود] [تم الحل] تحريك الكائن
|
هلا
اريد كود بحيث يحرك البانل ع حركة الماوس
باوع عل الصوره بلكي تفهمني
وشكرا
هذا الكود من هذا الموضوع للاستاذ 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 |
|