CBA

VB.NET 拖动无边框的窗体

2019-09-12 10:09:27来源:励志吧0次阅读

这是一个使用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

小宝宝脸色发黄怎么回事
小孩子发烧40度危险吗
新生儿黄疸会出现哪些症状
宝宝感冒推拿手法图片
分享到: