求易语言模拟鼠标拖动源码

我也纠结

我今天对一个游戏抓图，发现调用抓图以后，窗口奇异的消失了。

可是后来，我用工具使用点击不放开然后放到窗口，工具成功的抓图了。

可是。我不知道他的实现原理。

.版本 2

.支持库 edroptarget

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

拖放对象1.注册拖放控件 (取窗口句柄 ())

.子程序 _拖放对象1_得到文件

.参数 接收到的文件路径, 文本型

编辑框1.内容 ＝ 到文本 (读入文件 (接收到的文件路径))

这是我拖动Button的，你可以改成图片的：

       //是否正在拖拽 

        bool isDrag = false

       //鼠标按下坐标（control控件的相对坐标） 

        Point mouseDownPoint = Point.Empty

        //将被拖动的控件 

        private Control control

        private void btnMouse_MouseDown(object sender, MouseEventArgs e)

        {

            isDrag = true

            control = btnMouse

            if (e.Button == MouseButtons.Left)

            {

                mouseDownPoint = btnMouse.Location

            }

        }

        private void btnMouse_MouseMove(object sender, MouseEventArgs e)

        {

            if (isDrag)

            {

                Point mousePos = new Point(control.Location.X, control.Location.Y)

                mousePos.Offset(e.X, e.Y)

                mousePos.X -= this.control.Width / 2

                mousePos.Y -= this.control.Height / 2

                control.Location = mousePos

            }

        }

        private void btnMouse_MouseUp(object sender, MouseEventArgs e)

        {

            if (isDrag)

            {

                isDrag = false

            }

        }

---