文字首尾相连左右滚动/类似IED广告牌

易语言 2020-03-14 20:38:16

文字首尾相连左右滚动/类似IED广告牌

.子程序 滚动, , , 有点占用系统资源,
.参数 延时1, 整数型
.局部变量 计次, 整数型
.局部变量 b, 整数型

延时 (延时1)
.计次循环首 (取数组成员数 (标签数组), 计次)
标签数组 [计次].标签.左边 = 标签数组 [计次].标签.左边 - 2
.如果真 (标签数组 [计次].标签.左边 + 标签数组 [计次].标签.宽度 < 0)
.判断开始 (计次 = 1)
标签数组 [计次].标签.左边 = 标签数组 [取数组成员数 (标签数组)].标签.左边 + 标签数组 [计次].标签.宽度 + 5
.判断 (计次 > 1)
标签数组 [计次].标签.左边 = 标签数组 [计次 - 1].标签.左边 + 标签数组 [计次].标签.宽度 - 3
.默认

.判断结束

.如果真结束

.计次循环尾 ()