كود تحريك الفورم عند سحبها بالماوس فيجول بيسك دوت نيت code for move form when move it vb.net

code for move form when move it vb.net

كود تحريك الفورم عند سحبها بالماوس فيجول بيسك دوت نيت

من المعروف انه يمكنك تحريك الفورم من خلال سحبها من الشريط العلوي ولكن قد تحتاج الى تحريك الفورم من خلال سحبها من اي نقطه على الفورم وذلك من خلال الكود التالي

في public الخاص بالفورم نضيف الثلاث متغيرات التاليه لاستدعائها وقت الحاجة

Dim x, y As Integer
    Dim newpoint As New Point

وبعد ذلك في الحدث mousedown للفورم نضيف الكود التالي

x = Control.MousePosition.X - Me.Location.X
y = Control.MousePosition.Y - Me.Location.Y

وفي الحدث mousemove نضيف الكود التالي

   If e.Button = Windows.Forms.MouseButtons.Left Then
            newpoint = Control.MousePosition
            newpoint.X -= x
            newpoint.Y -= y
            Me.Location = newpoint
            Application.DoEvents()
        End If

اترك تعليقاً

لن يتم نشر عنوان بريدك الإلكتروني. الحقول الإلزامية مشار إليها بـ *

*