易语言使用标签实现进度条功能的代码

.版本 2
.支持库 iext
.支持库 EThread
.程序集 窗口程序集1
.程序集变量 百分比, 整数型
.子程序 周期事件
.如果 (图片框1.宽度 ＝ 200)
  百分比 ＝ 0
  图片框1.宽度 ＝ 2
  标签1.宽度 ＝ 2
.否则
  图片框1.宽度 ＝ 图片框1.宽度 ＋ 2
  标签1.宽度 ＝ 标签1.宽度 ＋ 2
  百分比 ＝ 百分比 ＋ 1
  透明标签1.标题 ＝ “正在前进%” ＋ 到文本 (百分比)
.如果结束
.子程序 _时钟1_周期事件
启动线程 (&周期事件, )