易语言高仿win8进度条源码 无模块/DLL
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _时钟1_周期事件
.如果真 (标签1.左边 > 外形框1.宽度 + 标签1.宽度 + 200)
标签1.左边 = 1 - 标签1.宽度
.如果真结束
标签1.左边 = 标签1.左边 + 5
.子程序 __启动窗口_创建完毕
.子程序 _时钟2_周期事件
.如果真 (外形框1.宽度 > 外形框2.宽度)
外形框1.宽度 = 0
.如果真结束
外形框1.宽度 = 外形框1.宽度 + 3
.子程序 _时钟3_周期事件
.如果真 (进度条1.位置 = 进度条1.最大位置)
进度条1.位置 = 0
.如果真结束
进度条1.位置 = 进度条1.位置 + 1