VB.NET如何拖动窗体

这篇文章主要介绍VB.NET如何拖动窗体，文中介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们一定要看完！

这是一个使用VB.NET拖动窗体中的拖动无边框的窗体方法，以下为源代码，朋友们可以参考一下

1. Private oOriginalRegion As
   Region = Nothing

2. ' 用于窗体移动

3. Private bFormDragging As
   Boolean = False

4. Private oPointClicked As Point

1. Private Sub Form1_MouseDown
   (ByVal sender As Object, ByVal
   e As System.Windows.Forms.
   MouseEventArgs) Handles
   MyBase.MouseDown

2. Me.bFormDragging = True

3. Me.oPointClicked =
   New Point(e.X, e.Y)

4. End Sub

1. Private Sub Form1_MouseUp
   (ByVal sender As Object, ByVal
   e As System.Windows.Forms.
   MouseEventArgs) Handles
   MyBase.MouseUp

2. Me.bFormDragging = False

3. End Sub

1. Private Sub Form1_MouseMove(ByVal
   sender As Object, ByVal e As
   System.Windows.Forms.MouseEventArgs)
   Handles MyBase.MouseMove

2. If Me.bFormDragging Then

3. Dim oMoveToPoint As Point

4. ' 以当前鼠标位置为基础，找出目标位置

5. oMoveToPoint = Me.PointToScreen
   (New Point(e.X, e.Y))

6. ' 根据开始位置作出调整

7. oMoveToPoint.Offset(Me.oPoint
   Clicked.X * -1, _

8. (Me.oPointClicked.Y + _

9. SystemInformation.CaptionHeight + _

10. SystemInformation.BorderSize.
    Height) * -1)

11. ' 移动窗体

12. Me.Location = oMoveToPoint

13. End If

14. End Sub

以上是"VB.NET如何拖动窗体"这篇文章的所有内容，感谢各位的阅读！希望分享的内容对大家有帮助，更多相关知识，欢迎关注行业资讯频道！