vb.net做的无窗口应用程序如何实现移动

Imports System.Drawing 
Imports System.Windows.Forms 
Public Class Form1 
'****************************************** 
Private oOriginalRegion As Region = Nothing 
' 用于窗体移动 
Private bFormDragging As Boolean = False 
Private oPointClicked As Point 

'****************************************** 
Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load 

End Sub 

Private Sub Form1_MouseDown(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown 
Me.bFormDragging = True 
Me.oPointClicked = New Point(e.X,e.Y) 
End Sub 

Private Sub Form1_MouseMove(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.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 

Private Sub Form1_MouseUp(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp 
Me.bFormDragging = False 
End Sub 
End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!