# Re: 如何使图片随滑鼠同步移动

Posted by 哈林 on August 05, 1998 at 23:59:00:

In Reply to: 如何使图片随滑鼠同步移动 posted by TONY on August 05, 1998 at 18:16:56:

:我觉得用Object.Move方法就可,图片也不会闪烁
:程式码如下,请参阅 (阿柳指导)
:Picture_MouseMove
:If Button Then
: Picture1.Move X+Picture1.Left-sx, Y_
: +Picture1.Top -sy
:End If

:Picture_MouseDown & MouseUp
:If Button Then
: sx = X
: sy = Y
:End If

Follow Ups:

- 感谢哈林 TONY 20:35:34 8/06/98 (1)
  - Re: 我觉得..... 哈林 18:34:53 8/07/98 (0)