用PowerBuilder制作指示灯

在安装各种软件或微软公司产品时会有直观可爱的条状指示灯，它总是以最直接的方式告诉我们工作的进程情况，在PowberBuilder 中也可以实现。

1. 创建一个应用程序（working－out)。

2. 创建一个窗口（w_01）。

3. 在应用程序的Open事件中最未尾Open()函数改为Open(w_01)。

4. 编辑w_01窗口。

5. 添加三个控件在 w_01窗口上,即两个Rectangle ：r_1，r_2 和一个commandButton ：cb_1。

6. 将 r_1的Fill Color:设为White 将Line Color:设为Black，将X设为243，Y设为645，Width设为1541，Height设为113。按Apply 或 OK即可。

7. 将 r_2的Fill Color:设为Blue 将Line Color:设为White，将X设为261，Y设为661，Width设为5，Height设为85。按“Apply” 或 “OK”即可。

8. 在cb_1的 clicked事件中添写：

r_1.visible= true
r_2.visible = true
int lock
lock=0
do while lock <100
lock = lock ＋ 1
r_2.width=lock＊15
loop

9. 按 “Run” 键运行此程序，就会看到一条从头走到尾的像安装Win98一样的指未灯出现在你的程序窗口上。

注：此程序只是作为一个指示灯，那什么时候指示灯该向前走，什么时候指示灯该停，只要想办法用变量给Lock赋值就可以了。