易语言动画物体随鼠标移动

.版本 2
.支持库 iext2

.子程序 _动画框_动画框鼠标位置改变
.参数 横坐标, 整数型
.参数 纵坐标, 整数型
.参数 已被按下物体, 整数型

.如果真 (已被按下物体 = 角色图标识值)
动画框.置物体位置 (角色图标识值, 横坐标, 纵坐标, )

===================================
我是这样写的,但是这样的话,鼠标始终在物体左上角的位置,比如说我用的图片是一个人体,我点住人物的肚子拖动时,图片会自动跑开,鼠标无法保持在人物肚子的位置上,请问如何保持?谢谢

在鼠标按下那里 记录鼠标在物体上的位置 然后在鼠标位置改变那里把记录位置加上一起计算……追问

谢谢,不过我听的有点一知半解,能不能把具体步骤写一下?万分感谢

追答

.版本 2
.支持库 iext2

.程序集 窗口程序集1
.程序集变量 鼠标X, 整数型
.程序集变量 鼠标Y, 整数型
.程序集变量 物体X, 整数型
.程序集变量 物体Y, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 物体, 整数型

物体 = 动画框1.创建物体 (, 50, 50, , )
动画框1.字体.加粗 = 真
动画框1.字体.字体大小 = 18

动画框1.置文本 (物体, “拖动文本”, 动画框1.字体, #红色)

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

鼠标X = 横向位置
鼠标Y = 纵向位置

.子程序 _动画框1_动画框鼠标位置改变
.参数 横坐标, 整数型
.参数 纵坐标, 整数型
.参数 已被按下物体, 整数型

动画框1.置物体位置 (已被按下物体, 横坐标 - 物体X, 纵坐标 - 物体Y, )

.子程序 _动画框1_物体左键被按下
.参数 物体标识值, 整数型

物体X = 鼠标X - 动画框1.取物体左边 (物体标识值)
物体Y = 鼠标Y - 动画框1.取物体顶边 (物体标识值)
‘写步骤还不如写代码方便……

温馨提示:答案为网友推荐,仅供参考