拖动无边框的窗体, 拖动无边框的窗体
这是一个使用开发拖动无边框的窗体,以下为源代码,朋友们可以参考一下。
******************************************
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 ) Handles
= True
= New Point(e.X, e.Y)
End Sub
******************************************
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As ) Handles
= False
End Sub
******************************************
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As ) Handles
If Then
Dim oMoveToPoint As Point
以当前鼠标位置为基础,找出目标位置
oMoveToPoint = (New Point(e.X, e.Y))
根据开始位置作出调整
oMoveToPoint.Offset(.X * -1, _
(.Y + _
SystemInformation.CaptionHeight + _
SystemInformation.BorderSize.Height) * -1)
移动窗体
Me.Location = oMoveToPoint
End If
End Sub