29-03-25, 02:48 AM
29-03-25, 03:11 AM
على فرض أن الزر الذي تريد الكتابة تحته الكود هو (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 Sub30-03-25, 01:58 AM
جزاك الله خيراً الكود مضبوط زى ما كنت محتاج