易语言标签闪字/滚动字/渐隐显源码

.版本 2
.支持库 eAPI
.支持库 EThread

.程序集 窗口程序集1
.程序集变量 bq1, 标签

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

标签1.文本颜色 ＝ 多项选择 (取随机数 (1, 9), #红色, #蓝色, #蓝灰, #青绿, #青蓝, #紫色, #紫红, #黑色, #品红)
标签2.文本颜色 ＝ 标签1.文本颜色
bq1.文本颜色 ＝ 标签1.文本颜色

.子程序 渐显
.局部变量 a, 整数型

.计次循环首 (255, a)
    设置窗口透明度 (取窗口句柄 (), a)
    延时 (1)
.计次循环尾 ()

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

启动线程 (&渐显, , )
复制窗口组件 (标签2, bq1)
bq1.可视 ＝ 真
bq1.左边 ＝ 宽度

.子程序 渐隐
.局部变量 a, 整数型

.计次循环首 (255, a)
    设置窗口透明度 (取窗口句柄 (), 255 － a)
    延时 (1)
.计次循环尾 ()
结束 ()

.子程序 __启动窗口_可否被关闭, 逻辑型

启动线程 (&渐隐, , )
返回 (假)

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

标签1.标题 ＝ 取文本右边 (标签1.标题, 取文本长度 (标签1.标题) － 1) ＋ 取文本左边 (标签1.标题, 1)


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

标签2.左边 ＝ 标签2.左边 ＋ 1
bq1.左边 ＝ bq1.左边 ＋ 1
.如果真 (标签2.左边 ＝ 宽度 － 标签2.宽度)
    bq1.左边 ＝ 0 － bq1.宽度
.如果真结束
.如果真 (bq1.左边 ＝ 宽度 － 标签2.宽度)
    标签2.左边 ＝ 0 － 标签2.宽度
.如果真结束


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

.如果真 (滚动条.左边 ≤ －滚动条.宽度)
    滚动条.左边 ＝ 背景条.宽度
.如果真结束
滚动条.左边 ＝ 滚动条.左边 － 1

@刘义守