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

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