Question

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

.版本 2
.支持库 iext2

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

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

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

Answer 1

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

追问

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

追答

.版本 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.取物体顶边 (物体标识值)
‘写步骤还不如写代码方便……