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
如果…就会结束
末端接头
位律师回复
0条评论