今天教大家易语言使用多线程绘图

1、第一步：首先在易语言主程序窗体上加两个画板，两个标签，一个按钮，在标签分别写上要绘画的类型，

2、第二步是写代码：

.版本 2

.支持库 EThread

.支持库 spec

.局部变量 随机数, 整数型

随机数 ＝ 10

启动线程 (&画矩形, 随机数, )

启动线程 (&画椭圆, 随机数, )

.子程序 画矩形

.参数 参数, 整数型

.局部变量 循环, 逻辑型

调试输出 (参数)

.判断循环首 (循环 ＝ 假)

    置随机数种子 ()

    画板2.激活 ()

    画板2.画笔类型 ＝ 取随机数 (0, 8)

    画板2.画笔颜色 ＝ 取随机数 (, )

    画板2.刷子类型 ＝ 取随机数 (0, 50)

    画板2.刷子颜色 ＝ 取随机数 (, )

    画板2.画矩形 (取随机数 (0, 画板2.宽度), 取随机数 (0, 画板2.高度), 取随机数 (0, 画板2.宽度), 取随机数 (0, 画板2.高度))

    延时 (1500)

    处理事件 ()

.判断循环尾 ()

.子程序 画椭圆

.参数 参数, 整数型

.局部变量 循环, 逻辑型

调试输出 (参数)

.判断循环首 (循环 ＝ 假)

    置随机数种子 ()

    画板1.激活 ()

    画板1.画笔类型 ＝ 取随机数 (0, 8)

    画板1.画笔颜色 ＝ 取随机数 (, )

    画板1.刷子类型 ＝ 取随机数 (0, 50)

    画板1.刷子颜色 ＝ 取随机数 (, )

    画板1.画椭圆 (取随机数 (0, 画板1.宽度), 取随机数 (0, 画板1.高度), 取随机数 (0, 画板1.宽度), 取随机数 (0, 画板1.高度))

    延时 (200)

    处理事件 ()

.判断循环尾 ()