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