易语言 做滚动公告，怎么循环滚动不同的内容。

Question

时间周期事件的循环代码怎么写
公告内容是在配置项中的，配置项中有如下
[gg1]
lr=公告：
[gg2]
lr=公告：
[ts]
lr=温馨提示：
[sw]
lr=

用的是透明标签标题来显示公告
怎么样才能让他循环滚动显示这些内容，请大家帮帮忙

Answer 1

.版本 2

.程序集 窗口程序集1

.程序集变量 公告, 文本型, , "0"

.程序集变量 GgID, 整数型

.程序集变量 提示, 文本型, , "0"

.程序集变量 TsID, 整数型

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

.局部变量 Path, 文本型

.局部变量 Text, 文本型, , "0"

.局部变量 I, 整数型

Path ＝ 取运行目录 () ＋ “\配置.ini”

Text ＝ 取配置节名 (Path)

.计次循环首 (取数组成员数 (Text), I)

    .判断开始 (到大写 (取文本左边 (Text [I], 取文本长度 (Text [I]) － 1)) ＝ “GG”)

        加入成员 (公告, 读配置项 (Path, Text [I], “lr”, ))

    .判断 (到大写 (取文本左边 (Text [I], 取文本长度 (Text [I]) － 1)) ＝ “TS”)

        加入成员 (提示, 读配置项 (Path, Text [I], “lr”, ))

    .默认

    .判断结束

.计次循环尾 ()

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

.如果真 (取数组成员数 (公告) ＞ 0)

    .如果真 (GgID ＝ 取数组成员数 (公告))

        GgID ＝ 0

    .如果真结束

    GgID ＝ GgID ＋ 1

    标签1.标题 ＝ 公告 [GgID]

.如果真结束

.如果真 (取数组成员数 (提示) ＞ 0)

    .如果真 (TsID ＝ 取数组成员数 (提示))

        TsID ＝ 0

    .如果真结束

    TsID ＝ TsID ＋ 1

    标签2.标题 ＝ 提示 [TsID]

Answer 2

你这个简单，用时钟，利用时钟周期读配置项就可以实现，如果你要用一整条滚动的话，可以用到分割文本的功能，也是利用的时钟

Answer 3

已经在论坛给你发了源码了，还在这问？