说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Visual Basic中显示动态运行进度

HTML文档下载 WORD文档下载 PDF文档下载
在Visual Basic中显示动态运行进度


在安装WINDOWS应用程序时,常有状态条来动态显示安装的进度。这种动态显示程序运行进度的方法在WINDOWS许多应用程序中都有应用。这项技术在WINDOWS应用程序开发中有其重要地位。它表示一种过程的指示。WINDOWS规定:当一个操作需2~3秒时,而用户在此操作完成前无法继续操作时,应在不可访问窗口上显示沙漏光标,示意用户等待。若这一操作持续更长的时间,则应使用动态显示的时间指示器。并有完成的进度百分比,暂停、恢复和取消等按钮以及其他提示信息。用Visual Basic实现这一功能是极其简单的,其方法有二。列举如下:
1. 使用图片框Picture Box。
用一简单的循环语句控制图片框的宽度增长,即可显示动态增长过程。可再加一个文本框以显示提示信息。一个简单的示例如下:
Form1: Caption:进度显示器
Picture1: backcolor: RGB(255,0,0)
Width: 1
borderstyle: 0
text1: borderstyle: 0
Sub Form_Load ( )
Picture1.Width = 1
End Sub
Sub Form_Click ( )
For i = 1 To 1000
Text1.Text = Int(i / 10) & " " & "%"
Picture1.Width = i
Next i
End Sub
这样就可获得用百分比表示的进度指示器。
2.使用专业版VB中的三维面板3D Panel Control
首先要用VB菜单中的File—Add File…的命令将Threed.vbx文件从WINDOWS的SYSTEM目录中加到当前工具箱中来,这样你会发现工具箱中出现了一系列的三维工具。其中三维面板3D Panel Control具有动态显示进度的功能。有关此功能的属性有:
FloodColor 设置面板的颜色以区别与背景色;
FloodType 表示动态显示的方式。各参数的意义如下:
0 没有状态条进行显示;
1 面板中将用FloodColor颜色从左到右递增显示变化状态;
2 面板中将用FloodColor颜色从右到左递增显示变化状态;
3 面板中将用FloodColor颜色从上到下显示变化状态;
4 面板中将用FloodColor颜色从下到上显示变化状态;
5 面板中将用FloodColor颜色以圆形从中心向外扩展显示变化状态;
FloodShowPct 设定在状态显示中是否显示百分比的变化。设为TRUE则表示显示百分比。
FloodPercent 设置或返回百分比的数值显示,仅在程序中设置,设计中无效。
下面给出一个简单的例子,当单击按钮时,面板就动态显示百分比变化:
Form1: caption: 进度显示
Command1: caption: 安装
panel3d1: BevelInner = 1
BevelOuter = 2
BevelWidth = 2
ShadowColor = 1
FloodType = 1
FloodShowPct = True
FloodColor = RGB(0, 0, 255)
Sub Form_Load ( )
panel3d1.BevelInner = 1
panel3d1.BevelOuter = 2
panel3d1.BevelWidth = 2
panel3d1.ShadowColor = 1
End Sub
Sub Command1_Click ()
For i = 0 To 100
panel3d1.FloodType = 1
panel3d1.FloodShowPct = True
panel3d1.FloodColor = RGB(0, 0, 255)
panel3d1.FloodPercent = i
Next i
End Sub
这样就生成了一个以百分比显示进度的指示器,其三维界面标准而美观,通过用程序控制三维面板的FloodPercent属性,可以设计出更加符合WINDOWS标准的安装界面,将它应用到自己开发的WINDOWS应用程序中,一定会为自己的应用程序增色不少。



豌豆荚发布新版应用搜索 推出“绿色标签”机制 权威解读:苹果的未来将走向何方? Google炮轰Facebook:你们的社交已经过时了! iOS设备硬件规格完整汇总 2012 MDCC“2012移动互联网应用创新大赛与开发者面对面”专场:创所未享,携手逐梦! RIM携QNX为“2012 BlackBerry平台移动应用高校竞赛” 颁奖 BlackBerry 10 策略:用金钱吸引游戏开发者 黑莓10要来了:RIM正式开放应用提交 从RIM与微软达成exFAT授权所想到的 OpenStack中国行来到南京 中兴通讯分享电信行业应用 CSS架构目标:预测、重用、扩展、维护 黑客利用移动浏览器漏洞窃取云计算资源 地位动摇:Windows设备10月销量同比下滑21% 手机QQ浏览器4.0 Android版 极速快感 生存还是毁灭:Facebook惨败真是HTML5的错? OpenStack基金会主席:一年后成熟度超越CloudStack 在线学习新编程 技巧全攻略 “英特尔杯”HTML5程序开发邀请赛侧记 C#编译器组首席工程师Eric Lippert离职 加盟Coverity Testacular:Google开源的JavaScript测试执行过程管理工具 黑莓亚洲开发者大会报道:BB10将敲开亚洲应用市场大门 挑战Google!传Facebook与Yahoo要联手开发搜索引擎 揭秘Android 4.2 开发者的天堂与地狱 11大黄金法则:顶级移动UX设计心髓 库克时代:苹果已经不是苹果 设计师必备:极简风格的Fluid UI快速原型图工具 iPhone 5发布,后乔布斯时代苹果乏善可陈 牛人妙计:HTML5应用也能像原生一样跑得快 移动周报:OpenFeint难逃关闭命运 细数与苹果恩怨史 FlyingDaggers团队专访:不浮躁,用心做真正的原创游戏! IT巨头混战:谷歌、苹果、Facebook以及亚马逊的四国演义 水晶报表ReportSource 的绑定问题 在线等待,回答马上给分(关于存储过程参数问题!!!!!!!!!!) 100分相赠,求短程序!! 一个很简单的问题,帮帮我!! applet中参数如何保存到数据库?急!!!!!!!!!!!!!!! 如何在自己的函数中向指定菜单(比如“保存”)发消息 求助!!! 数据增加问题!解决马上给分! 请指教!!! 下载了源代码之后怎么打开呢? 再问一个字符串问题 如何用C语言读键盘缓冲区,这样为什么不行? 如何实现这样的窗体,马上给分!! weblogic 7.0 连mysql的pool出错,看看 毕业论文:各种排序算法的比较与分析。高分求相关资料。 如何将当前页面textarea的内容传递给新打开的页面中的iframe中? 求助:Windows XP 无法安装DirectX SDK? 怎么把64*64 bmp缩小为32*32 菜鸟问题,急需解决,请大家帮忙!! 问一个数据库相连的简单问题 毕业论文:各种排序算法的比较与分析。高分求相关资料。 关于my3b (重阳公子) 的注释的问题,我也在奇怪. 平铺的数据 征集意见:写一个酒店管理系统.分不够再加 vb.net是怎么回事/?在学之前要哪些基础准备? 在VMware如何装SCO UNIX 谁有VMware版的SCO UNIX 5.06啊!!! 如何实现啊?---- 求一个函数! 50分,请大家帮忙寻找这个笔记本网卡驱动紧急求助(Fast Ethernet pc card) 求 Quoted-Printable,8bit编码方式的解码函数 菜COM:DELPHI如何独立编译,WAITING ONLINE 请求速答 请指点 但不知pb是怎么回事 在学之前要哪些基础准备? Authorware新家园,捧捧场哦 各位,那有候捷翻译的《windows 95系统大奥秘》的简体中文版可下啊 关于作用域 反对有些人以爱国或真理为名侮辱我们的政府!!!!! 但不知delphi是怎么回事 在学之前要哪些基础准备? 请问 SET XACT_ABORT ON 怎么用啊 散分!!分不够再加!!! 请问扩展名名为asp的文件怎么打开? [ZT]GOOGLE的彩蛋 看看,怎回事? Xsl:for-each进行循环,如何能从循环中退出!急急急!!!给分 怎样实现更新 DBGrid 选中的多行记录? 有人能帮我看看这个存储过程到底是为什么运行不了吗?晚上结 请教高手 :在一个bean内只能有一个结果集吗? 如何从表单radio中得到它的value值呀. 验证问题 还是没有解决windows NT密码丢失问题啊 求救呀,来看看,谢了 可否用程序动态改变机器名? 红砖柱长,宽,高,1000*500*3500,单个柱能承受多重的力 介绍基本关于道教的书推荐些好的,关于道教史的也好南怀瑾大师的书也好 英语现在式第三人称写作请教~作文能手请进给些意见救命呀救命呀老师给了一个作文的功课.要求是:600-800字,但是只可用第三人称和现在式去写,不可以用 I,you,we ,our ,etc.後天就要教作文了,试 一实心正方体,棱长为3cm,质量为156.6g,密度是多少,物体平放在1m²的水平桌面正中央,桌面受到的压强是 Pa(g=10N/kg) 在竖直屏幕前有一点光源S,从这点光源 右侧有一小球向右水平抛出,则小球的影子在屏幕上的运动情况是()为什么是匀速运动?希望能给解决! gps不能定位 道教四大名山龙虎山用英文怎么翻译? 请问电梯门这样的画法 那它的开门方式是哪一种 我的gps为什么无法定位啊刚买了个P800,以前没有用过多普达的手机,什么也不会,看手机上有个图灵天行者,但是为什么每次我设置导航都提示GPS尚未定位?应该怎么操作啊 道教之音用英语怎么说?道教之音翻译成英文 电梯启动问题,求办法1楼.电梯向上起动时,有明显向上拉的感觉,向下启动时,有向上倒溜.不知道是不是平衡系数的原因,还是零速启动补偿太小,还是什么原因.电梯是新安装不久的,以前好像没 GPS为什么有时能定位,有时却不能定位?如题,为什么没连移动网络的情况下,手机上的GPS(高德导航或其它)有时能定位,但有些时候却不能呢?这是什么道理啊,有什么办法可以保持定位吗? 一般电梯的机械效率是多少 一小球以水平速度Vo抛出,在抛出处有一点光源S,在抛出点正前方有一竖直墙,墙上小球的影的运动是A自由落体运动 B变加速直线运动 C匀加速直线运动 D匀速直线运动 质量为m=1千克的小球由高h1=0.45m处自由下落,落到水平地面后,反跳的最大高度h2=0.2m,从小球下落到反跳到最高点经历的时间为△t=0.6s,取g=10m/s.求小球撞击地面过程中,球对地面的平均压力大小F 竞走和跑步有什么区别啊? the article is very beautiful的中文意思?求英文水平好的朋友翻译下这句英文 质量为1kg的小球从距地面高0.45m处自由下落到地面上,反弹后上升的最大高度为0.20m,小球与地面接触的时间为0.05s,不计空气阻力,g取10m/s2,则在触地的过程中,小球受到合力的冲量大小为A.1.0N&# 跑步和竞走的区别在于》 boy is very beautiful是什么意思? 质量为m=1kg的小球从高H1=20m处下落到软垫上,反弹后上升的最大高度为H2=5m,小球与软垫的接触时间为t=0.1s,求软垫对小球的平均作用力 如图所示,杠杆在水平位置平衡,A.B 为同种材料制成的正方体,边长分别为 0.2m 和 0如图所示,杠杆在水平位置平衡, A.B 为同种材料制成的正方体,边长分别为 0.2m 和 0.1m, 且已知 OA:OB=1:2,物体 A 对 古代和神话传说中有哪些名剑宝剑 世界著名的故事有哪些? 像a little a lot lots of less lest many much等这样表述数量多少的不管是不可数名词还是可数名词的词?全部的写给我一下. The pair of giant pandas(填什么,有关add)the pleasant atmosphere at the Spring Festival Evening Part选项为A.added B.added to C.added in D.added up to writing stories 在500mL Fe2(SO4)3和CuSO4的混合溶液中加入16.8g的铁粉,搅拌并充分反应后,经过滤、洗涤、干燥,可得到6.4g铜,.要使溶液中SO4 2-完全沉淀,需加入2mol/L的BaCl2溶液500mL.则原混合溶液中硫酸铜的物质的量 the evening of the midautumn festival介词,是用on 还是in?还有有关什么of的短语介词是怎么用的,比如the morning of May 1st ,怎样判定是用哪个介词? like writing stories.中文翻译 高手come onHe looked rather untidy as there were two buttons --- from his coat.空格里填off 为什么? 宋开国丞相赵普曾说:"半部《论语》治天下. lao she teahouse英文作文 化学沉淀溶解平衡的难题 高手come on!就拿AgCl当例子吧1.少量AgCl固体在溶液中溶解 溶解部分完全电离AgCl==Ag+ + Cl-可是根据沉淀溶解AgCl(s)Ag(aq)++Cl-(aq) 又是怎么回事?2.如果我拿未饱和的AgCl溶液 鱼类急性毒性试验怎么做,谢谢各位大神 like writing stories是什么意思 亲爱的( )800字左右,文笔好一点的,现在人的思想太脏了.拜托是作文, 变频电梯频率与额定速度公式曳引机比为53:1 曳引轮直径为680mm 电动机转速为1465 曳引比为2;1 求额定速度为0.6m/s时,应设置的频率为多少HZ? Most of the people hold the view that fireworks can___the festival atmosphereA.add B.add to C.make for 为什么选B不选C make for 不是有促成的意思吗to 和 make for 的区别。举例。 如某品牌汽车质量为M,汽车行驶时弯道部分的半径为r,路面倾角为a(g=10),动摩擦因数为u路面倾角为a(g=10),为使汽车不打滑,最大速度为多少,正弦值=0.05,r=60m,u=0.3,则弯道汽车行驶最大速度是多少 Jim can you help me take away the r__ 填什么, 如何寻找带点粒子在磁场中的圆心以及半径 RT 亲爱的,聪明的打救我 快 Jim can you help me take away the r___?请那位大虾告诉我填什么! ________Chinese which city is famous for ice and snow,and the answer is sure to be Harbin.A.If you ask a B.Asked someC.Ask any D.Having asked every省略If就要加and,否则不要and吗?the answer is sure to be Harbin 不应该用将来 如果某品牌车的质量为m,汽车行驶时弯道部分的半径为r,汽车轮胎与地面摩擦力为u,路面设计的倾角为β为使汽车转弯时不打滑,汽车行驶的最大速度是多少? 在800米长跑比赛中,裁判员用什么表测量时间电子停表或机械停表 the city of harbin is beautiful all the year aroundthe city of harbin is beautiful all the year around,_________in winter .ice lanterns decorate streets and attract plenty of tourists 用托盘天平称量一个小烧杯的质量,当天平的指针不在零点而偏向右是开始称量,砝码为5g,游码为0.4g,则当天平达到平衡时,小烧杯的实际质量是大于5.4g还是小于5.4g或者等于5.4 曳引式电梯具有什么特点? 无电无动力抽水泵 比例和比例尺有什么区别 已知,三角形ABC中A(-1,-7/2),B(6,0),C(1,3/2)点D(2/5,0)在AC上,求ABC的面积.(平面直角坐标系中的面积问题,一定要有过程) writing怎么读 用托盘天平称量小烧杯的质量为多少 电梯曳引轮绳槽一般是什么形状的?+电梯曳引轮绳槽一般是什么形状的 she的第三人称是什么?Can you help _____(she)? 小红同学用托盘天平称量烧杯的质量,天平平衡后的状态如下所示,该同学称取的烧杯实际质量为( )A.23.8g B.32.6gC.32.3g D.27. 请问曳引机的曳引比是怎么计算的,如何判断电梯的曳引比?曳引比和绕绳比有什么区别吗? 英语翻译上面那个数字是我的Q,麻烦send to my e-mail 杭州10岁女童遭“淫魔”猥亵 家长怒广西岑溪炮竹厂爆炸 已致7死19伤海军三大舰队西太平洋演习落幕 今后将北京局地达严重污染程度 “蓝天”只能蒙古国高校新增汉语教学点叙问题联合特使称日内瓦会议有望于数周刘奇葆会见朝鲜劳动新闻代表团以色列轰炸加沙致3人死亡印度烟花厂爆炸至少8人死亡浙江金华婺城区发生一起安全事故 致2浙江一工作人员被爆不务正业 上班玩游中国留学生勇救日本落水儿童获驻日使馆河南“死刑保证书案”民事上诉被驳回 专家PMI保持升势 经济稳定增长态势日媒:中国调查船驶入钓鱼岛附近“专属日本举行国内首次大规模“夺岛”演习日本举行国内首次大规模“夺岛”演习英国10月份制造业PMI回落至56.今年全国平均雾霾日数为4.7天 系5河南新乡“失误”审批百亩别墅 五责任云南泸西爆炸枪击案两主犯伏法都灵宣布前意甲金靴回归 租期6个月+4个方法,让你的自我投资带来更高的效郑州、濮阳、济源等市发布的诚信建设“17岁河南小伙身患白血病 39岁台湾我国出台无户口人员落户政策 超生人员全球每7部手机就有1部来自郑州 港区拆迁后建设前 郑州常寨村民借“寸金之郑州公安2015“年终总结”看了这些春节将至 高校女生寝室门“换新装”过请毕节公开1.77亿救助基金去向比达尔:一些巴萨青年球员不够努力巴托梅乌希望内马尔可以不出庭庾澄庆为伊能静二胎送祝福何以获赞现在奥斯卡唯一的焦点,恐怕就是小李子大威胁!12岁归化日本乒乓球神童零封等到光剑变岁月,江湖上只剩星战的传说300多人助力龙泉警方微博 3小时找85岁老汉剪碎14万元人民币 儿子3花甲老人全国自由行 骑摩托上高速被制不堪病痛妻子求丈夫勒死自己 涉嫌故意郑州植物园附近有人拉网猎鸟 网上部分
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘