易语言进度条源码

 易语言进度条源码来源于易语言官方源码案例，作者：swf0722。根据作者的描述程序的作用是：让大家研究进度条之间的关系!本易语言进度条源码所使用的易语言组件有：窗口，按钮，编辑框，标签，分组框、进度条以及时钟。如图1所示。

源码如下：

.版本 2 
.支持库 xplib 
 
.程序集 窗口程序集1 
 
.子程序 _按钮1_被单击 
 
进度条1.最大位置 ＝ 100 
进度条1.最小位置 ＝ 1 
 
.如果真 (编辑框1.内容 ＝ “”) 
    信息框 (“请先设置滚动的速度.”, 0, “提醒”) 
.如果真结束 
时钟1.时钟周期 ＝ 到数值 (编辑框1.内容) 
 
.子程序 _时钟1_周期事件 
 
进度条1.位置 ＝ 进度条1.位置 ＋ 1 
标签1.可视 ＝ 真 
标签2.可视 ＝ 真 
标签2.标题 ＝ 到文本 (进度条1.位置) ＋ “%” 
.如果真 (进度条1.位置 ＝ 100) 
    进度条1.位置 ＝ 0 
    时钟1.时钟周期 ＝ 0 
    标签1.可视 ＝ 假 
    标签2.可视 ＝ 假 
    返回 () 
.如果真结束 
 
 
.子程序 __启动窗口_创建完毕 
 
XP风格 (#蓝色风格) 
 
.子程序 _按钮2_被单击 
 
时钟1.时钟周期 ＝ 0 
进度条1.位置 ＝ 0 
标签1.可视 ＝ 假 
标签2.可视 ＝ 假 
标签3.可视 ＝ 假 
标签5.可视 ＝ 真 

程序运行效果如图：