请教Vb高手一个移动物体的问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 01:32:22
比如我在窗体里话了一条线,用什么方法能让鼠标拖着它动呢?就像CAD里一样,我们画了条线,想把它换个位置,就能随便换呢?

用line 方法画的线是根本不可能跟着鼠标移动的，
要想实现鼠标拖着线移动的效果可以添加Line控件 来实现

AlphaBlend - 高级经理 六级 给你长下见识。。

Dim LX As Long
Dim LY As Long
Dim MD As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.PSet (X, Y)
LX = X
LY = Y
MD = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MD = True Then
Me.Line (LX, LY)-(X, Y)
LX = X
LY = Y
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MD = False
End Sub