易语言高仿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