vb 运行后拖动控件

 

'VB不用API在EXE运行时自由移动窗口上的控件代码：Dim moving As Boolean, X1 As Integer, Y1 As IntegerPrivate Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    '鼠标在按钮上点击下去时执行(此时鼠标一直按着没提起来)    moving = True    X1 = X    Y1 = YEnd SubPrivate 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 IfEnd SubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)    '鼠标在点击的情况下,放手时产生的事件    moving = FalseEnd Sub