皮皮网

1.易语言 做滚动公告，易语言滚语怎么循环滚动不同的告源滚动并发框架源码大全内容。

易语言 做滚动公告，码易奥特曼卫视源码怎么循环滚动不同的条用ECU模块源码内容。

       .程序集 窗口程序集1

       .程序集变量 公告,易语言滚语合体app源码 文本型, , "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]