易语言如何让进度条走完时载入窗口

.版本 2.程序集 窗口程序集1.子程序 __启动窗口_创建完毕.如果真（进度条．位置>进度条．最大位置）
载入 (你想载入的窗口, , 真)

如果真（进度条．位置>进度条．最大位置）载入（你的窗口）

先把"启动窗口"设为不可见，接着载入一个"窗口1"，这个窗口是一个"进度条1"和"时钟1"，窗口的控制按钮不可见，高度、宽度和"进度条1"的高度、宽度一样，这样就成了只有一个进度条，通过"时钟1"控制"进度条1"走完满格，然后销毁“窗口1”，设“启动窗口”为可见，接着运行“启动窗口”中的程序。
---------------------------------
.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

_启动窗口.可视 ＝ 假
载入 (窗口1, , 真)
-------------------------
.版本 2

.程序集 窗口程序集2

.子程序 _窗口1_创建完毕

窗口1.控制按钮 ＝ 假
窗口1.高度 ＝ 40
窗口1.宽度 ＝ 380
进度条1.左边 ＝ 0
进度条1.顶边 ＝ 0
进度条1.高度 ＝ 40
进度条1.宽度 ＝ 380
进度条1.显示方式 ＝ 1
进度条1.最大位置 ＝ 100
时钟1.时钟周期 ＝ 100

.子程序 _时钟1_周期事件

进度条1.位置 ＝ 进度条1.位置 ＋ 1
.如果真 (进度条1.位置 ＝ 100)
时钟1.时钟周期 ＝ 0
窗口1.销毁 ()
_启动窗口.可视 ＝ 真
.如果真结束