前往Shuct.Net首页

Shudepb PB反编译专家长时间以来,为业内同类软件事实上的唯一选择.细节,彰显专业.态度,决定品质.

关于PowerBuilder的搜索

PowerBuilder里的一个实验_已解决问题_搜狐问答 个人中心 我的主页 好友 站内信 设置 | --> 新闻 网页 音乐 图片 视频 问答 地图 说吧 更多 --> 帮助 搜狐问答 >> 文理学科 已解决 PowerBuilder里的一个实验 悬赏分:0 - 解决时间: 2010年05月19日 12时50分 刚开始学进度条的时候,要将进度条从0到100显示。之后无限循环。该怎么做呢? 提问者: - 中级魔法师 六级 最佳答案 跟随已跟随取消 确定 --> 我刚刚做完一个,基本道理是:弄三个静态文本,一个作为进度条的白色底框,一个作为蓝色的进度条,一个作为显示百分比(如显示19%)。然后点按钮开始滚动,从1%到100%后,重新开始滚动。你跟着我做,脚本粘贴到对应的地方就行:先说需要准备的东西:鼠标、键盘、一个窗口(w_test)、三个静态文本控件(st_1、st_2、st_3,注意:保证st_1位于最底层,st_2在其上层),一个按钮(cb_1),OK!弄好了继续进行:★★①★★----打开主窗口w_test的open()事件★★①★★,粘贴:st_2.visible = false //--滚动条初始不可见st_1.text = '' //--将三个文本框的文字清空st_2.text = ''st_3.text = ''st_1.backcolor = rgb(255,255,255) //--底框的背景色设置为白色st_2.backcolor = rgb(100,180,230) //--滚动条的背景色设置为我喜欢的蓝绿色st_1.border = true //--指定底框有边框st_1.borderstyle = stylebox! //--底框的边框样式为box(四周为黑边框)st_1.width = 1008 //--底框的宽度st_2.width = 10 //--滚动条的宽度st_3.width = 300 //--显示百分比的文本宽度st_1.height = 128 //--底框的高度st_2.height = 120 //--滚动条的高度st_3.height = 120 //--显示百分比的文本宽度st_2.x = st_1.x + 4 //--滚动条的x位置比底框的x向右2st_2.y = st_1.y + 4 //--滚动条的y位置比底框的y向下2st_3.x = st_1.x + st_1.width + 20 //--显示百分比的文本x位置st_3.y = st_2.y //--显示百分比的文本y位置st_3.textsize = 25 //--显示百分比的文本文字大小★★②★★----打开主窗口w_test的timer()事件★★②★★,粘贴:st_2.width = st_2.width + 10 //--滚动条的宽度以10为单位不断增加st_3.text = string( integer(st_2.width/1000*100) ) + ' %' //--显示百分之多少if st_2.width > 1000 then st_2.width = 10 //--当滚动条的宽度超过1000时,重置其宽度为10 st_3.text = '0 %'end if★★③★★----打开按钮cb_1的clicked()事件★★③★★,粘贴:st_2.visible = true //--滚动条可见timer(0.05) //--定义时钟(周期为0.05秒)parent.postevent('timer') //--触发父窗口的timer事件======================================================================保存,运行吧,点按钮,就可以看到效果了总的思想是:利用时钟周期使滚动条不断变长,这个过程就是进度条的滚动过程了,再利用条件判断滚动条是否超过了指定长度,若超过了,其长度变回最小,并继续不断变长。======================================================================PS:想让滚动条滚动的慢些,就修改一下timer(0.05),数值改为你想要的,比如0.1,就是以0.1秒为周期窗口open()事件里没什么具体的处理过程,主要是外观方面的制定string( integer(st_2.width/1000*100) ),给你分解一下:1、st_2.width/1000:用当前进度条的长度除以1000(指定了进度条最长为1000),值如:0.26142345872552、st_2.width/1000*100:乘上100,值如:26.142345872553、integer(st_2.width/1000*100):用integer()函数,只保留整数,值如264、string( integer(st_2.width/1000*100) ):用string()函数,将数值型的26转换为字符串的26,才能显示在st_3上。别忘记在主应用(Application)里加上open(w_test)哦,否则程序没有入口啦,如果窗口名不是w_test,你自己写一下。全部脚本都写了注释,自己看看,研究一下,琢磨琢磨,弄懂后自己试着改改玩 &nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp 回答者: - 魔法学徒 一级 05-18 09:27 相关内容 搜狐推广服务 相关内容加载中... {question.title} 相关搜索 {hint} 查看同主题问题:全球通用 哑语 其他回答 共 1 条 在这里问没有人回答的。去CSDN的PB论坛吧。很多高手http://forum.csdn.net/BList/PowerBuilder/UnClosedList 回答者: - 魔法士 三级 05-18 09:27 等待您来回答 在家闲着无聊如何追上潮流的步伐,找个赚钱赚rmb的真钱小游戏玩玩 读名言警句有感 现在的雾霾天越来越严重了,有没有办法可以改善啊?pm2.5,毒雾都对咱们健康影响太… 小学六年级下册数学书练习4答案 高一必修三教师用书 抛起的浪花像 吉林有什么树 在家闲着无聊如何追上潮流的步伐,找个赚钱赚rmb的真钱小游戏玩玩 如要参与问答产品讨论,请发送邮件至wendakf#sohu-inc.com。(请自行将#改为@) 如要投诉或反馈问题,请到搜狐问答官方博客。 查看所有问题 --> 设置首页 - 搜狗输入法 - 支付中心 - 搜狐招聘 - 广告服务 - 客服中心 - 联系方式 - 保护隐私权 - About SOHU - 公司介绍 Copyright © 2011 Sohu.com Inc. All Rights Reserved. 搜狐公司 版权所有 搜狐不良信息举报电话:010-62728061 举报邮箱:jubao@contact.sohu.com var selfAd = $("selfAd"); if(selfAd.innerHTML.length