VB.NET移动控件或者窗体思路

最新推荐文章于 2024-02-27 12:52:02 发布

Yogurt_cry

最新推荐文章于 2024-02-27 12:52:02 发布

阅读量1.9k

点赞数

分类专栏： VB.NET学习 Yogurt_cry

本文链接：https://blog.csdn.net/qq_18301257/article/details/82529152

版权

Yogurt_cry 同时被 2 个专栏收录

27 篇文章 0 订阅

订阅专栏

VB.NET学习

8 篇文章 0 订阅

订阅专栏

控件或窗体移动后坐标=控件实时坐标+内部鼠标坐标-移动前鼠标坐标

Dim pointStart As Point = Nothing

Private Sub 控件名(窗体名)_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 控件名(窗体名).MouseDown
    With pointStart
        .X = e.X
        .Y = e.Y
    End With
End Sub


Private Sub 控件名(窗体名)_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 控件名(窗体名).MouseMove
    If pointStart.X > 0 Then Me.Location = Me.Location + e.Location - pointStart
End Sub


Private Sub 控件名(窗体名)_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 控件名(窗体名).MouseUp
    pointStart = Nothing
End Sub