敬业的IT人 互联网 佚名 2008-1-4 12:30:41

　　相信大家在安装各种软件或微软公司产品时都会注意到那直观可爱的条状指示灯，它总是以最直接的方式告诉我们工作的进程情况，在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 $#@60;100
　　lock = lock ＋ 1
　　r_2.width=lock＊15
　　loop
　　9. 按 “Run” 键运行此程序，就会看到一条从头走到尾的像安装Win98一样的指未灯出现在你的程序窗口上。
　　注＊ 此程序只是作为一个指示灯，那什么时候指示灯该向前走，什么时候指示灯该停，只要想办法用变量给Lock赋值就可以了。进入讨论组讨论。

最新文章

PowerBuilder应用开发系列讲座(37)[01-04]

用Pb 7.0创建一个具有多功能的下拉列表框[01-04]

PB8.0应用程序编译发布技术研究[01-04]

PowerBuilder应用开发系列讲座(8)[01-04]

PB环境下分布式应用程序的开发[01-04]

PB/Sybase系统开发中的数据库转移[01-04]

相关文章