鼠标划过标签自动变色炫酷特效

鼠标划过标签自动变色炫酷特效源码，控制上下位置还可以让字体抖动哦，彩色标题和标签变色要就下载吧。

.判断循环首 (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)) ' 字体位置关系也需要改进，控制上下位置，还可以让字体抖动哦~~~~
.判断循环尾 ()