[يوسف]

(20-09-13, 12:28 PM)sooriaty03 كتب :

(20-09-13, 08:32 AM)يوسف كتب :

هلا عزيزي
نسخة الكود داخل الفورم واعطاني خطأ
فين بارك الله فيك اضع الكود لو ممكن توضح اكثر
أو تضع مثال جاهز

السلام عليكم ورحمة الله وبركاته

بعد إذن أخي محمد أشرف
أحببت أن أصحح ظهور الكود

كود :

Public Class Form1
    Dim drag As Boolean
    Dim mousex As Integer
    Dim mousey As Integer
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        drag = True
        mousex = Windows.Forms.Cursor.Position.X - Me.Left
        mousey = Windows.Forms.Cursor.Position.Y - Me.Top
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If drag Then
            Me.Top = Windows.Forms.Cursor.Position.Y - mousey
            Me.Left = Windows.Forms.Cursor.Position.X - mousex
        End If
    End Sub
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        drag = False
    End Sub
End Class

بارك الله فيك عمل الكود بدون اي خطأ