VB.NET 拖动无边框的窗体

最新推荐文章于 2023-02-14 22:37:28 发布

原创最新推荐文章于 2023-02-14 22:37:28 发布 · 929 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #object

情感交流专栏收录该内容

7 篇文章

订阅专栏

此博客展示了使用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