Question

我想用易语言做一个滑块条改变窗口底色、求源码。

Answer 1

.版本 2

.子程序 _滑块条1_位置被改变

_启动窗口.底色 ＝ HSLToRGB (滑块条1.位置 ÷ 100, 0.5, 0.5)

.子程序 Hue, 双精度小数型
.参数 p, 双精度小数型
.参数 q, 双精度小数型
.参数 t, 双精度小数型

.如果真 (t ＜ 0)
t ＝ t ＋ 1
.如果真结束
.如果真 (t ＞ 1)
t ＝ t － 1
.如果真结束
.如果真 (t ＜ 1 ÷ 6)
返回 (p ＋ (q － p) × 6 × t)
.如果真结束
.如果真 (t ＜ 1 ÷ 2)
返回 (q)
.如果真结束
.如果真 (t ＜ 2 ÷ 3)
返回 (p ＋ (q － p) × (2 ÷ 3 － t) × 6)
.如果真结束
返回 (p)

.子程序 HSLToRGB, 整数型
.参数 h, 双精度小数型
.参数 s, 双精度小数型
.参数 l, 双精度小数型
.局部变量 r, 双精度小数型
.局部变量 g, 双精度小数型
.局部变量 b, 双精度小数型
.局部变量 q, 双精度小数型
.局部变量 p, 双精度小数型

.判断开始 (s ＝ 0)
r ＝ l
g ＝ l
b ＝ l
.默认

q ＝ 选择 (l ＜ 0.5, l × (1 ＋ s), l ＋ s － l × s)
p ＝ 2 × l － q
r ＝ Hue (p, q, h ＋ 1 ÷ 3)
g ＝ Hue (p, q, h)
b ＝ Hue (p, q, h － 1 ÷ 3)

.判断结束
返回 (取颜色值 (四舍五入 (r × 255, ), 四舍五入 (g × 255, ), 四舍五入 (b × 255, )))

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

滑块条1.最大位置 ＝ 100
滑块条1.页改变值 ＝ 1

转换色彩空间 然后…… 你复制代码测试一下吧

追问

能不能简单的。

能不能简单的。

追答

不能 如果真想简单
那只能放三个滑块条 滑块条的最大位置=255
然后 _启动窗口.底色=取颜色值（滑块条1.位置，滑块条2.位置，滑块条3.位置）

追问

哦，好的，谢谢。