VB.NET拖动无边框窗体编程实例

进口系统。绘图
导入系统。windows . Forms
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Private original region as region = nothing
'用于窗体移动
Private b formlogging as boolean = false
Private opointclicked as point

'******************************************

private Sub form 1 _ MouseDown(ByVal sender作为对象，ByVal e作为系统。Windows.Forms.MouseEventArgs)处理MyBase。鼠标按下

me . bform drawing = True
me . opointclicked =新点(e.X，e.Y)

end Sub
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *。

private Sub form 1 _ MouseUp(ByVal sender作为对象，ByVal e作为系统。Windows.Forms.MouseEventArgs)处理MyBase。MouseUp
me . b form dragging = False

end Sub
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *。

private Sub form 1 _ MouseMove(ByVal sender作为对象，ByVal e作为系统。Windows.Forms.MouseEventArgs)处理MyBase。MouseMove

If me . b form drawing Then

Dim oMoveToPoint作为点

根据当前鼠标位置，找出目标位置。

oMoveToPoint =我。PointToScreen(新的点(e.X，e.Y))

根据起始位置进行调整。

oMoveToPoint。Offset(Me.oPointClicked.X * -1，_

(Me.oPointClicked.Y + _

系统信息。标题高度+ _

系统信息。BorderSize.Height) * -1)

移动表单

我。Location = oMoveToPoint

如果…就会结束

末端接头