在安装各种软件或微软公司产品时会有直观可爱的条状指示灯它总是以最直接的方式告诉我们工作的进程情况在PowberBuilder 中也可以实现
创建一个应用程序（workingout）
创建一个窗口（w_）
在应用程序的Open事件中最未尾Open（）函数改为Open（w_）
编辑w_窗口
添加三个控件在 w_窗口上即两个Rectangle :r_r_ 和一个commandButton :cb_
将 r_的Fill Color:设为White 将Line Color:设为Black将X设为Y设为Width设为Height设为按Apply 或 OK即可
将 r_的Fill Color:设为Blue 将Line Color:设为White将X设为Y设为Width设为Height设为按Apply 或 OK即可
在cb_的 clicked事件中添写
r_visible= true
r_visible = true
int lock
lock=
do while lock <
lock = lock +
r_width=lock*
loop
按 Run 键运行此程序就会看到一条从头走到尾的像安装Win一样的指未灯出现在你的程序窗口上
注此程序只是作为一个指示灯那什么时候指示灯该向前走什么时候指示灯该停只要想办法用变量给Lock赋值就可以了
编辑推荐
ASP NET开发培训视频教程
Microsoft NET框架程序设计视频教程
