如何实现image控件在picture控件中移动

[zdmaster]

现在picture控件中包含一个image控件，我想用鼠标拖动image控件
使其随着鼠标移动，并且在松开鼠标后image控件的位置也就移动到鼠标
所在的位置上，各位大虾如何做！

[cuiyxy]

Dim oX, oY

Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)
Image1.Left = Image1.Left + (X - oX)
Image1.Top = Image1.Top + (Y - oY)

End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Drag
oX = X
oY = Y
End Sub

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Image1.Left = X - oX
Image1.Top = Y - oY
End Sub

[cy_nwau]

前几天刚解决了这个问题，要的话给个EMAIL，我发给你。


若能对你有所帮助，我将非常高兴！

[fuxc]

to: zdmaster(哈哈)
把Dim oX, oY移到过程外就可以了，前两天我也犯了这个错误，ox,oy是全局变量

[hand2001]

zdmaster(哈哈)　(2002-1-7 12:53:33) 得0分
TO：hand2001(我爱VB不爱我)　
的确行，不过怎么鼠标点击一下image就会改变位置，您帮我解决一下
我马上给分
*****************************************
因该不会有这个问题。

[zdmaster]

to:cy_nwau
[e-mail]
谢谢了

[cy_nwau]

收到了吗？

[hand2001]

简单：
Dim oX, oY
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
oX = X: oY = Y
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
Image1.Move Image1.Left + X - oX, Image1.Top + Y - oX
End Sub

[zdmaster]

TO：hand2001(我爱VB不爱我)　
的确行，不过怎么鼠标点击一下image就会改变位置，您帮我解决一下
我马上给分