窗体问题--拖动无标题栏的窗体

Private mouse_offset As Point
Private Sub form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
mouse_offset = New Point(e.X, e.Y)
End Sub

Private Sub form1_MouseMove(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
'按住鼠标左右键均可拖动窗体
Dim frm As Form1 = DirectCast(Sender, Form1)
If e.Button = MouseButtons.Left Or e.Button = MouseButtons.Right Then
Dim mousepos As Point = frm.MousePosition
'获得鼠标偏移量
mousePos.Offset(-mouse_offset.X, -mouse_offset.Y)
'设置窗体随鼠标一起移动
frm.Location = mousepos
End If

End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'关闭窗体
Me.Close()
End Sub

////////////////////////////////////// 闵峰 2005/05/26