为编程爱好者分享易语言教程源码的资源网

网站首页 > 易语言相关 > 易语言例程 正文

易语言实现彩色会闪会抖动的字,而且还在标题栏

三叶资源网 2025-01-03 20:31:45 易语言例程 40 ℃ 2 评论
.版本 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.取窗口句柄 ())

@时间的温柔

文件下载
资源名称:易语言实现彩色会闪会抖动的字,而且还在标题栏


来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

已有2位网友发表了看法:

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
微信HOOK炫彩设计器工程快手注册源码D3D9劫持hook源码YY号取UIDcropper.js是否被修改通用对话框类群发源码图片旋转工具调试获取QQ资料卡sign算法黑客数字雨解析DLL文本小米电视遥控器JS加密kktv关键词采集列表框
最新评论