易语言要如何实现鼠标拖动图片框的图片

as474888778

易语言要如何实现鼠标左键不放拖动图片框的图片，然后松开就可以获取窗口句柄。

liyim00

.版本 2
.支持库 eAPI
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.图片 ＝ {  }
捕获鼠标 (图片框1.取窗口句柄 ())

.子程序 _图片框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

释放鼠标 ()
图片框1.图片 ＝ #sb
调试输出 (取鼠标所在窗口句柄 ())

2463308417

获取鼠标一个坐标给图片框就行了