用PowerBuilder制作指示灯

Author: Lige Date: 1999年第3期 13版

    相信大家在安装各种软件或微软公司产品时都会注意到那直观可爱的条状指示灯，它总是以最直接的方式告诉我们工作的进程情况，在Powner Builder 中也可以实现。
    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赋值就可以了。