在 VB.NET 中如何拖动无边框的窗体

来源：qqread论坛作者：出处：巧巧读书 2006-07-31 进入讨论组

关键词：
windows
vb.net

　　'******************************************
　　Private oOriginalRegion As Region = Nothing
　　' 用于窗体移动
　　Private bFormDragging As Boolean = False
　　Private oPointClicked As Point

　　'******************************************
　　
　　Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
　　
　　Me.bFormDragging = True
　　Me.oPointClicked = New Point(e.X, e.Y)
　　
　　End Sub
　　'******************************************
　　Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
　　Me.bFormDragging = False
　　
　　End Sub
　　'******************************************
　　
　　Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
　　If Me.bFormDragging Then
　　Dim oMoveToPoint As Point
　　' 以当前鼠标位置为基础，找出目标位置
　　oMoveToPoint = Me.PointToScreen(New Point(e.X, e.Y))
　　' 根据开始位置作出调整
　　oMoveToPoint.Offset(Me.oPointClicked.X * -1, _
　　(Me.oPointClicked.Y + _
　　SystemInformation.CaptionHeight + _
　　SystemInformation.BorderSize.Height) * -1)
　　' 移动窗体
　　Me.Location = oMoveToPoint
　　End If
　　
　　End Sub保留地址 http://www.qqread.com/vbdotnet/e037188002.html