本文介紹了使用PowerBuilder實(shí)現(xiàn)指示燈的方法。

相信大家在安裝各種軟件或微軟公司產(chǎn)品時(shí)都會(huì)注意到那直觀可愛(ài)的條狀指示燈，它總是以最直接的方式告訴我們工作的進(jìn)程情況，在PowberBuilder 中也可以實(shí)現(xiàn)。

（1）創(chuàng)建一個(gè)應(yīng)用程序（working－out)。

（2）創(chuàng)建一個(gè)窗口（w_01）。

（3）在應(yīng)用程序的Open事件中最未尾Open()函數(shù)改為Open(w_01)。

（4）編輯w_01窗口。

（5） 添加三個(gè)控件在 w_01窗口上,即兩個(gè)Rectangle ：r_1，r_2 和一個(gè)commandButton ：cb_1。

（6） 將 r_1的Fill Color:設(shè)為White 將Line Color:設(shè)為Black，將X設(shè)為243，Y設(shè)為645，Width設(shè)為1541，Height設(shè)為113。按Apply 或 OK即可。

（7） 將 r_2的Fill Color:設(shè)為Blue 將Line Color:設(shè)為White，將X設(shè)為261，Y設(shè)為661，Width設(shè)為5，Height設(shè)為85。按“Apply” 或 “OK”即可。

（8） 在cb_1的 clicked事件中添寫(xiě)：
　　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” 鍵運(yùn)行此程序，就會(huì)看到一條從頭走到尾的像安裝Win98一樣的指未燈出現(xiàn)在你的程序窗口上。

注＊此程序只是作為一個(gè)指示燈，那什么時(shí)候指示燈該向前走，什么時(shí)候指示燈該停，只要想辦法用變量給Lock賦值就可以了。