vb 运行后拖动控件

VB不用API在EXE运行时自由移动窗口上的控件代码：
Dim moving As Boolean, X1 As Integer, Y1 As Integer
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '鼠标在按钮上点击下去时执行(此时鼠标一直按着没提起来)
    moving = True
    X1 = X
    Y1 = Y
End Sub
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '鼠标正在移动中,此时
    If moving = True Then
        Command1.Left = Command1.Left + X - X1
        Command1.Top = Command1.Top + Y - Y1
    End If
End Sub
 
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '鼠标在点击的情况下,放手时产生的事件
    moving = False
End Sub

————————————————
版权声明：本文为CSDN博主「boys1999」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/boys1999/article/details/24140839