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

前端之家收集整理的这篇文章主要介绍了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

猜你在找的VB相关文章