[heem1986]

قمت بإنشاء زر بأسم تحريك وكل ما أريد أنه عند الضغط المطول على هذا الزر والتحرك يمين ويسار يتحرك كامل الفورم معى ولكم جزيل الشكر

[Taha Okla]

على فرض أن الزر الذي تريد الكتابة تحته الكود هو (Button5) :

يكون الكود هو :

كود :

   Private isDragging As Boolean = False
   Private mouseOffset As Point
   
   Private Sub Button5_MouseDown(sender As Object, e As MouseEventArgs) Handles Button5.MouseDown
       If e.Button = MouseButtons.Left Then
           isDragging = True
           mouseOffset = New Point(e.X, e.Y)
       End If
   End Sub

   Private Sub Button5_MouseMove(sender As Object, e As MouseEventArgs) Handles Button5.MouseMove
       If isDragging Then
           Dim newLocation As Point = Me.Location
           newLocation.X = newLocation.X + e.X - mouseOffset.X
           newLocation.Y = newLocation.Y + e.Y - mouseOffset.Y
           Me.Location = newLocation
       End If
   End Sub

   Private Sub Button5_MouseUp(sender As Object, e As MouseEventArgs) Handles Button5.MouseUp
       If e.Button = MouseButtons.Left Then
           isDragging = False
       End If
   End Sub

[heem1986]

جزاك الله خيراً الكود مضبوط زى ما كنت محتاج