Question

易语言如何用时间控制外形框填充色

我想用时间控制红绿灯颜色，每隔一分钟，颜色变一种，用到组件（编辑框，时钟），标签

Answer 1

.版本 2

.程序集 窗口程序集1
.程序集变量 颜色, , , "0"
.程序集变量 计次
.程序集变量 颜色数

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

加入成员 (颜色, #红色)
加入成员 (颜色, #绿色)
加入成员 (颜色, #黄色)
颜色数 ＝ 取数组成员数 (颜色)
计次 ＝ 1
时钟1.时钟周期 ＝ 60000

.子程序 _时钟1_周期事件

.如果 (计次 ＝ 3)
外形框1.背景颜色 ＝ 颜色 [3]
计次 ＝ 1
.否则
外形框1.背景颜色 ＝ 颜色 [计次]
计次 ＝ 计次 ＋ 1
.如果结束

Answer 2

颜色值 = 取颜色值 (取随机数 (1, 255), 取随机数 (1, 255), 取随机数 (1, 255))