【搞颜色】回帖渐变色

woshipqj

我喜欢这个创新！玩编程就是缺思路！

柠檬汽水

这个好啊，学习一下，拿走谢谢

zipper2016

我丢，这个东西有意思的很嘛

冰棍好烫啊

感谢分享,这个好玩

缺１份矜持ゝ

这个还可以哈。感谢

qq184252904

这个好啊，学习一下，拿走谢谢

nenxifugebi

我喜欢这个创新！玩编程就是缺思路！

杨辰浩

冷眸藐视 发表于 2020-8-21 00:35
整合谁都会，关键是创新！

我喜欢这个创新！玩编程就是缺思路！

冷眸藐视

杨辰浩 发表于 2020-8-21 00:31
修改版！一个子程序搞定！

整合谁都会，关键是创新！

杨辰浩

修改版！一个子程序搞定！




.版本 2
.支持库 iext2
.子程序 生成论坛帖子渐变色, 文本型
.参数 超级编辑框, 超级编辑框
.参数 起始色, 整数型
.参数 中间色, 整数型
.参数 末尾色, 整数型
.局部变量 局_字数数组, 文本型, , "0"
.局部变量 局_个数, 整数型
.局部变量 i, 整数型
.局部变量 局_颜色, 整数型
.局部变量 R, 双精度小数型
.局部变量 G, 双精度小数型
.局部变量 B, 双精度小数型
.局部变量 局_起始色, 字节集
.局部变量 局_中间色, 字节集
.局部变量 局_结束色, 字节集
.局部变量 局_代码文本, 文本型
.局部变量 字符格式, 字符格式
.如果真 (超级编辑框.内容 ＝ “”)
    返回 (“”)
.如果真结束
局_个数 ＝ 文本_逐字分割 (超级编辑框.内容, 局_字数数组)
局_起始色 ＝ 到字节集 (起始色)
局_中间色 ＝ 到字节集 (中间色)
局_结束色 ＝ 到字节集 (末尾色)
R ＝ (局_结束色 [1] － 局_中间色 [1] － 局_起始色 [1]) ÷ 局_个数
G ＝ (局_结束色 [2] － 局_中间色 [2] － 局_起始色 [2]) ÷ 局_个数
B ＝ (局_结束色 [3] － 局_中间色 [3] － 局_起始色 [3]) ÷ 局_个数
超级编辑框.内容 ＝ “”
.计次循环首 (局_个数, i)
    局_颜色 ＝ 取颜色值 (局_起始色 [1] ＋ R × (i － 1), 局_起始色 [2] ＋ G × (i － 1), 局_起始色 [3] ＋ B × (i － 1))
    局_代码文本 ＝ 局_代码文本 ＋ “[color=” ＋ “#” ＋ 运算_颜色转换 (局_颜色) ＋ “]” ＋ 局_字数数组 ＋ “”
    ' ---------------------------------------
    字符格式.文本颜色 ＝ 局_颜色
    超级编辑框.置选择区字符格式 (字符格式)
    超级编辑框.被选择文本 ＝ 局_字数数组
    ' ---------------------------------------------------
    处理事件 ()
.计次循环尾 ()
返回 (局_代码文本)