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