Question

在VB中如何用鼠标实现对象的移动

急用啊，麻烦了。。

Answer 1

Dim StartX As Single
Dim StartY As Single

'将Object换成要移动的对象名

Private Sub Object_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
StartX = X
StartY = Y
End Sub

Private Sub Object_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Object.Left = Object.Left + X - StartX
Object.Top = Object.Top + Y - StartY
End If
End Sub

'VB6.0测试通过

Answer 2

你要移动的对象设置成是鼠标移动的坐标就可以了