易语言进度条

无需时钟：

.版本 2

.支持库 EThread

.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击

.局部变量 a, 整数型

启动线程 (&子程序_新线程, , a)

.子程序 子程序_新线程

.判断循环首 (进度条1.位置 ＜ 100)

进度条1.位置 ＝ 进度条1.位置 ＋ 1

延迟 (100)

.判断循环尾 ()

信息框 (“要弹出的信息”, 0, )

进度条1.位置 ＝ 0

要时钟：

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

时钟1.时钟周期 ＝ 100

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

进度条1.位置 ＝ 进度条1.位置 ＋ 1

.判断开始 (进度条1.位置 ＝ 100)

信息框 (“要弹出的信息”, 0, )

进度条1.位置 ＝ 0

时钟1.时钟周期 ＝ 0

.默认

.判断结束