用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賦值就可以了。