易语言_用画板来做进度条

.版本 2

.程序集 窗口程序集1
.程序集变量 进度, 整数型
.程序集变量 zX, 整数型
.程序集变量 zY, 整数型
.程序集变量 yx, 整数型
.程序集变量 yy, 整数型

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

画板1.置写出位置 (画板1.宽度 ÷ 2 － 5, 3)
zX ＝ -1
zY ＝ -1
yy ＝ 画板1.高度
画板1.画出方式 ＝ 13
画板1.画笔颜色 ＝ 画板1.刷子颜色

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

.如果真 (进度 ＜ 100)
    进度 ＝ 进度 ＋ 1
    yx ＝ zX ＋ 画板1.宽度 ÷ 100 × 进度
    画板1.滚动写行 (到文本 (进度) ＋ “%”)
    画板1.画矩形 (zX, zY, yx, yy)
    ' zX ＝ yx ＋ 1
.如果真结束
.如果真 (进度 ＝ 100)
    时钟1.时钟周期 ＝ 0
    信息框 (“演示完毕”, 0, )
.如果真结束