Question

易语言轮播几十句话上下滚动的无限轮播 怎么弄啊求大神开源·

易语言轮播几十句话上下滚动的无限轮播 怎么弄啊求大神开源·

Answer 1

.版本 2

.程序集 窗口程序集1
.程序集变量 文本组, 文本型, , "0"
.程序集变量 计次, 整数型
.程序集变量 计数, 整数型
.程序集变量 上下, 逻辑型

.子程序 __启动窗口_创建完毕

标签1.是否自动折行 ＝ 真
标签1.标题 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\123.txt”))
文本组 ＝ 分割文本 (标签1.标题, #换行符, )
计数 ＝ 2
上下 ＝ 真
时钟1.时钟周期 ＝ 2000

.子程序 _时钟1_周期事件

标签1.标题 ＝ “”
.变量循环首 (计数, 取数组成员数 (文本组), 1, 计次)
标签1.标题 ＝ 标签1.标题 ＋ 文本组 [计次] ＋ #换行符
.变量循环尾 ()
.判断开始 (上下)
计数 ＝ 计数 ＋ 1
.默认
计数 ＝ 计数 － 1
.判断结束
.如果真 (计数 ＝ 取数组成员数 (文本组) 或 计数 ＝ 1)
上下 ＝ 取反 (上下)
.如果真结束

Answer 2

hb1.gdxh()