用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赋值就可以了。
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赋值就可以了。
本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】