易语言_编辑框组件实现进度条

.版本 2
.支持库 spec

.子程序 编辑框_进度条
.局部变量 i, 整数型

进度条_开关 ＝ 1
.循环判断首 ()
    编辑框_日志.加入文本 (“当前执行进度中……” ＋ #换行符 ＋ #换行符)
    编辑框_日志.加入文本 (“进度中：” ＋ 取重复文本 (10, “□”))
    .计次循环首 (10, i)
        .如果真 (进度条_开关 ＝ 0)
            跳出循环 ()

        .如果真结束
        编辑框_日志.内容 ＝ 子文本替换 (编辑框_日志.内容, “□”, “■”, i, 1, 真)
        调试输出 (i)
        程序_延时 (300, )
    .计次循环尾 ()
    编辑框_日志.内容 ＝ “”
.循环判断尾 (进度条_开关 ＝ 1)
编辑框_日志.加入文本 (“卧槽 搞定！”)