VB.NET 拖动无边框的窗体

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