图片的移动（在线）

Question

如何在PICTUREBOX中用手抓移动图片
高分送给！

Answer 1

你可以在picturebox外再加一个picturebox控件，这样用鼠标移动里面的图片框也就好像是在移动图片了。

Answer 2

我做过这样的一个例子是用api函数做的。
好像是
getpix
和
setpix
 吧。不过我觉得应该还有更检单的方法。

Answer 3

我是里面又加了一个PICTUREBOX 可还是没有办法做
最好能给一段代码

Answer 4

Option Explicit
Dim x0 As Single
Dim y0 As Single
Dim a As Single
Dim b As SinglePrivate Sub pic_DragDrop(Source As Control, x As Single, y As Single)
   Source.Move a + x - x0, b + y - y0
   Source.Drag 2
   Source.MousePointer = 0
End SubPrivate Sub Pic_Mousedown(Button As Integer, Shift As Integer, x As Single, y As Single)
   PIC.MousePointer = 99
   PIC.Drag 1
   x0 = x
   y0 = y
   a = PIC.left
   b = PIC.top
End Sub

Answer 5

相当推荐sxs69()的方法。用拖动。