条状指示灯
它总是以最直接方式告诉我们工作进程情况在PowberBuilder 中也可以实现
1. 创建
个应用
(working－out)2. 创建
个窗口(w_01)3. 在应用
Open事件中最未尾Open
改为Open(w_01)4. 编辑w_01窗口
5. 添加 3个Control控件在 w_01窗口上,即两个Rectangle :r_1
r_2 和个commandButton :cb_1 6. 将 r_1
Fill Color:设为White 将Line Color:设为Black将X设为243Y设为645Width设为1541Height设为113按Apply 或 OK即可7. 将 r_2
Fill Color:设为Blue 将Line Color:设为White将X设为261Y设为661Width设为5Height设为85按“Apply” 或 “OK”即可8. 在cb_1
clicked事件中添写:r_1.visible= true
r_2.visible = true
locklock=0
do while lock <100
lock = lock ＋ 1
r_2.width=lock＊15
loop
9. 按 “Run” 键运行此
就会看到条从头走到尾像安装Win98样指未灯出现在你窗口上注＊此
只是作为个指示灯那什么时候指示灯该向前走什么时候指示灯该停只要想办法用变量给Lock赋值就可以了
最新评论