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.net做的无窗口应用程序如何实现移动
最新推荐文章于 2021-06-23 10:03:43 发布