26-08-21, 05:02 PM
26-08-21, 05:44 PM
PHP كود :
Public Class Form1
Private IsMouseDown As Boolean = False
Private MouseOffset As Point
Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
IsMouseDown = True
MouseOffset.X = e.X
MouseOffset.Y = e.Y
End If
End Sub
Private Sub Form1MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Location = New Point( _
Me.Location.X + e.X - MouseOffset.X, _
Me.Location.Y + e.Y - MouseOffset.Y)
End If
End Sub
End Class