移动窗体#Region "移动窗体" Private x0, y0 AsInteger PrivateSub Form1_MouseMove()Sub Form1_MouseMove(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) HandlesMyBase.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) EndIf End Sub PrivateSub Form1_MouseDown()Sub Form1_MouseDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) HandlesMyBase.MouseDown If e.Button = MouseButtons.Left Then Me.Cursor = Cursors.Hand x0 = e.X y0 = e.Y EndIf End Sub PrivateSub Form1_MouseUp()Sub Form1_MouseUp(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) HandlesMyBase.MouseUp If e.Button = MouseButtons.Left Then Me.Cursor = Cursors.Default EndIf End Sub #End Region
一般情况下我们都经过拖动窗体的标题来达到改变窗体地位置的,但时有时为了做了特殊效果,不得不去除窗体的标题栏,这样如何改变窗体的位置就成了问题下在就介绍一种方法来达到这种目的 移动窗体#Region "移动窗体" Private x0, y0 As Integer Private Sub Form1_MouseMove()Sub Form1_MouseMove(ByVal s