هنا

[spyman]

السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة

'45- طريقة اخرى لتحريك الفورم من اي مكان بأستخدام API

Public Class Form1


    Private Const WM_NCHITTEST As Integer = &H84
    Private Const HTCAPTION As Integer = 2
    Private Const HTCLIENT As Integer = 1

    Protected Overrides Sub _
    WndProc(ByRef m As Message)
        MyBase.WndProc(m)
        Select Case m.Msg
            Case WM_NCHITTEST
                If m.Result.ToInt32 _
     = HTCLIENT Then
                    m.Result = New IntPtr _
     (HTCAPTION)
                End If
        End Select
    End Sub

End Class

'45- طريقة اخرى لتحريك الفورم من اي مكان بأستخدام API 

'46-طريقة اخرى لتحريك الفورم من اي مكان

Public Class Form1

    Dim MsDown As Boolean
    Dim X, Y As Double

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

        If e.Button = MouseButtons.Left Then
            X = MousePosition.X - DesktopLocation.X
            Y = MousePosition.Y - DesktopLocation.Y
            MsDown = True
        End If

    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

        If MsDown Then
            SetBounds(MousePosition.X - X, _
            MousePosition.Y - Y, Width, Height)
        End If

    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

        MsDown = False

    End Sub

End Class

'46-طريقة اخرى لتحريك الفورم من اي مكان