حرکت فرم با کلیک کردن و نگه داشتن موس

سلام .
من فرم ویندوز اپم رو None کردم یعنی کنترل باکس و از این چیزا نداره .
FormBorderStyle = None
ولی الان دیگه حرکت نمی کنه . وقتی اجرا می شه فقط یک جا ثابت می ماند . چطور کاری کنم با کلیک برو روی فرم و نگاه داشتن ان کلیک و حرکت موس نرم افزارم هم حرکت کنه ؟

    Const HT_CAPTION As Integer = &H2

    Const WM_NCLBUTTONDOWN As Integer = &HA1





    <Runtime.InteropServices.DllImport("user32.dll")  > _

    Public Shared Function SendMessage(hWnd As IntPtr, Msg As Integer, wParam As Integer, lParam As Integer) As Integer

    End Function

    <Runtime.InteropServices.DllImport("user32.dll")  > _

    Public Shared Function ReleaseCapture() As Boolean

    End Function









    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown

        If e.Button = MouseButtons.Left Then

            ReleaseCapture()

            SendMessage(Handle, WM_NCLBUTTONDOWN, HT_CAPTION, 0)

        End If

    End Sub

یه PictureBox و یا شئی دیگری بسازید و این کد رو براش بنویسید

Public Class Form1



Private mPrevPos As New Point



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



Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)

If (e.Button = MouseButtons.Left) Then

Me.Location += delta

mPrevPos = e.Location - delta

Else

mPrevPos = e.Location

End If



End Sub



End Class

الان اگه موس رو روی PictureBox1 بکشید فرم جابه جا میشه. میتونید از شی دیگه ای هم استفاده کنید. فقط یادتون باشه که خط 7 تا 13 باید در رویداد MouseMove کنترل نوشته بشن

سلام عزیز
این کد رو تو Mouse_Down فرم مربوطه بنویسید قابل حرکت میشه:

If e.Button = MouseButtons.Left Then
Me.Capture = False
' Create and send a WM_NCLBUTTONDOWN message.
Const WM_NCLBUTTONDOWN As Integer = &HA1S
Const HTCAPTION As Integer = 2
Dim msg As Message = _
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If


موفق باشی عزیز

اگه می خواستی با تصویر فرمت رو حرکت بدی بگو تا کد اونم بزارم.:لبخندساده:

مطلب ارزنده‌ای بود