Question

易语言实现鼠标左键单机标签，标签向上移动某个单位。

求源码。

Answer 1

很简单看代码，两种方法。

1.整体移动标签。就是标签高度不变。只是移动标签。

.
.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
标签1.顶边 ＝ 标签1.顶边 － 1

2. 只是增加标签的高度。

.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
标签1.高度 ＝ 标签1.高度 ＋ 1
标签1.顶边 ＝ 标签1.顶边 － 1

追问

怎么才能单机一下，让其向上移动一个单位，再单机一下让其降落一个单位（第二种为例）

追答

不知你想做什么用，但可以做到。思路是：设个程序集变量“i ” (必须是程序集变量，不然不起作用) 如点击一下标签，i +1，如果 i > 2， i = 1，然后判断，如 i = 1 标签高度增加，i = 2 标签高度降低。看下面代码。（至于还有没有别的更好的方法，你可以想想。）

.版本 2
.程序集 窗口程序集1
.程序集变量 i, 整数型
.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
i ＝ i ＋ 1
.如果 (i ＞ 2)
i ＝ 1
.否则
.如果结束
.判断开始 (i ＝ 1)
标签1.高度 ＝ 标签1.高度 ＋ 3
标签1.顶边 ＝ 标签1.顶边 － 3
.默认
.判断结束
.判断开始 (i ＝ 2)
标签1.高度 ＝ 标签1.高度 － 3
标签1.顶边 ＝ 标签1.顶边 ＋ 3

Answer 2

.版本 2
.程序集 窗口程序集1
.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
标签1.顶边 ＝ 标签1.顶边 － 5