Question

易语言标签跟随鼠标移动问题

在鼠标单击后，标签会慢慢移动到鼠标位置，注意：不是简单地
.版本 2
标签2.左边 ＝ 取鼠标水平位置 () － _启动窗口.左边

标签2.顶边 ＝ 取鼠标垂直位置 () － _启动窗口.顶边
而是让标签能看见过程地移动到鼠标位置

Answer 1

.版本 2

.子程序 子程序1

.局部变量 线长, 整数型

.局部变量 j, 整数型

.局部变量 i, 双精度小数型

.局部变量 原X, 整数型

.局部变量 原Y, 整数型

.局部变量 X, 整数型

.局部变量 Y, 整数型

X ＝ 取鼠标水平位置 () － 左边 － 标签1.宽度 ÷ 2

Y ＝ 取鼠标垂直位置 () － 顶边 － 30 － 标签1.高度 ÷ 2

原X ＝ 标签1.左边

原Y ＝ 标签1.顶边

线长 ＝ 求平方根 ((X － 原X) × (X － 原X) ＋ (Y － 原Y) × (Y － 原Y))

.变量循环首 (0, 线长, 1, j)

    i ＝ j ÷ 线长

    标签1.左边 ＝ (X － 原X) × i ＋ 原X

    标签1.顶边 ＝ (Y － 原Y) × i ＋ 原Y

    延时 (5)

    处理事件 ()

.变量循环尾 ()

Answer 2

在桌面也可以的？