本文由 千趣源码 – qianqu 发布，转载请注明出处，如有问题请联系我们！易语言实现彩色会闪会抖动的字，而且还在标题栏

.版本 2

.程序集 窗口程序集1

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

时钟1.时钟周期 ＝ 150

.子程序 彩色的字
.参数 文字字节, 字节集
.参数 窗口句柄, 整数型
.参数 随机渐变, 逻辑型, 可空, 不选不随机颜色
.参数 字体抖动, 逻辑型, 可空
.局部变量 Dc, 整数型
.局部变量 Leng, 整数型
.局部变量 i, 整数型
.局部变量 Tx, 字节集
.局部变量 y, 小数型
.局部变量 A, 整数型
.局部变量 B, 整数型
.局部变量 Ra, 整数型
.局部变量 Rb, 整数型
.局部变量 R, 整数型
.局部变量 矩形, 矩形_

Leng ＝ 取字节集长度 (文字字节)置随机数种子 ()A ＝ 取随机数 (0, 200)B ＝ 取随机数 (50, 200)Dc ＝ GETwindowDC (窗口句柄)SetBkMode (Dc, 1).判断循环首 (Leng ＞ i)
    .如果 (随机渐变)
        Ra ＝ A ＋ (B － A) ÷ Leng × 1
        Rb ＝ B ＋ (A － B) ÷ Leng × 2
        SetTextColor (Dc, 取颜色值 (Ra ＋ i × 1.5, Rb, 0))  ' 这个渐变算法好像不行
    .否则
        SetTextColor (Dc, 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), i))
    .如果结束
    i ＝ i ＋ 1
    .如果 (字体抖动)
        R ＝ 取随机数 (-2, 2)
        .如果真 (i ≤ 1)
            SetWindowTextA (取窗口句柄 (), “”)  ' 用来刷新显示。。另类的方法
        .如果真结束

    .否则
        R ＝ 0
    .如果结束
    Tx ＝ 取字节集中间 (文字字节, i, 1)
    .如果真 (Tx [1] ≥ 129)
        Tx ＝ 取字节集中间 (文字字节, i, 2)
        i ＝ i ＋ 1
        y ＝ y ＋ 0.5
    .如果真结束
    TextOutA (Dc, 15 ＋ (i － y) × 10, 6 － R, 到文本 (Tx), 取字节集长度 (Tx))  ' 字体位置关系也需要改进，控制上下位置，还可以让字体抖动哦~~~~
.判断循环尾 ()ReleaseDC (取窗口句柄 (), Dc).子程序 _时钟1_周期事件

彩色的字 (到字节集 (“http://www.iisanye.com ”), 取窗口句柄 (), , 真)彩色的字 (到字节集 (“让自己回望过去 ,渐变    ”), 标签1.取窗口句柄 (), 真)彩色的字 (到字节集 (“彩色的字 ,还会闪呢    ”), 标签2.取窗口句柄 ())

挺好玩的E语言代码