15-01-22, 12:33 AM
شكرا أستاذ إبراهيم ,,
لكني وجد حل أسهل
نعرف المتغيران كالتالي
ثم نضع الكود التالي في الإفنت التالية
أحببت المشاركة للفائدة
لكني وجد حل أسهل
نعرف المتغيران كالتالي
كود :
Private Property MoveForm As Boolean
Private Property MoveForm_MousePos As Pointثم نضع الكود التالي في الإفنت التالية
كود :
Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
If e.Button = MouseButtons.Left Then
MoveForm = True
Me.Cursor = Cursors.Hand
MoveForm_MousePos = e.Location
End If
End Sub
Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
If MoveForm Then
Me.Location = Me.Location + (e.Location - MoveForm_MousePos)
End If
End Sub
Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp
If e.Button = MouseButtons.Left Then
MoveForm = False
Me.Cursor = Cursors.Default
End If
End Subأحببت المشاركة للفائدة
