网站首页 > 易语言相关 > 易语言例程 正文
.版本 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.取窗口句柄 ())
@时间的温柔
- 上一篇: 夸克网盘扫码登录+账号信息查询源码
- 下一篇: 易语言取文件真实创建时间
猜你喜欢
- 2025-01-04 hook抓取电脑和安卓交互的TCP请求,Tcp-adb源码分享
- 2025-01-03 易语言取文件真实创建时间
- 2025-01-03 易语言实现彩色会闪会抖动的字,而且还在标题栏
- 2024-06-28 通讯录VCF文件生成源码
- 2024-03-16 2024无模块静默取已登录QQ
- 2024-03-16 批量转换PPT为PDF源码
- 2024-03-15 串口相关, 虚拟串口,枚举串口,PCOMM使用
- 2024-03-14 易语言取Unix时间戳源码
- 2024-03-13 易语言源码 安卓 ADB调试桥 真机调试
- 2024-03-11 易语言控件自动缩放源码
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有2位网友发表了看法: