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

发给好友

我要报错

投稿给我们

加入收藏

返回顶部