如何在没有标题栏的情况下移动窗体

一般情况下我们都经过拖动窗体的标题来达到改变窗体地位置的,但时有时为了做了特殊效果,不得不去除窗体的标题栏,这样如何改变窗体的位置就成了问题
下在就介绍一种方法来达到这种目的

 

移动窗体 #Region "移动窗体"
    Private x0, y0 As Integer
    Private Sub Form1_MouseMove()Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If e.Button = MouseButtons.Left Then
            Top += e.Y - y0
            Left += e.X - x0
            'Debug.WriteLine(e.X - x0)
            'Debug.WriteLine(e.Y - y0)
        End If
    End Sub

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

        If e.Button = MouseButtons.Left Then
            Me.Cursor = Cursors.Hand
            x0 = e.X
            y0 = e.Y
        End If

    End Sub

    Private Sub Form1_MouseUp()Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        If e.Button = MouseButtons.Left Then
            Me.Cursor = Cursors.Default
        End If
    End Sub
#End Region