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

在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应用程序中,一定会为自己的应用程序增色不少。



重金力邀开发者 联想智能桌面应用开发大赛开幕 SDCC 2013大会讲师名单议题出炉 8月20日五折票价最后一天 程序员困境:底层编码能力正逐步丧失 寓教于乐 给代码审查者的几点建议 裁员4千、总裁员人数超过7.5万,难掩思科锋芒 物联网离普罗大众还有多远? 悼念斯诺登使用的加密电邮服务——Lavabit架构解析 运营商上阵OTT “一笑泯恩仇”后路在何方 [企业开源系列]后起之秀Facebook凭什么挑战互联网霸主Google? 谷歌推出免费标签管理应用Tag Manager McAfee CTO Phyllis Schneck被任命为NPPD副部长 Bootstrap 3.0发布 更好地支持移动端和响应式开发 国内创业公司QingCloud的魄力:做一个世界级的IaaS服务 从毫秒到微妙,纯硬的闪存阵列IBM Flash System来了! 中科创达邹鹏程:黑客精神逐渐被人遗忘 有点让人感伤 通过讲故事的方式来设计优秀网站 “肮脏的”IT工作排行榜 Clank:带有SCSS的高效率移动应用原型框架 欧朋 CTO 罗志宇:谈Sphinx游戏引擎的前世今生 John Carmack大神亲手操刀,Oculus Rift SDK即将发布 从南极之争谈软件架构十个技巧,及成功团队具备的气质 Imation重拳出击,推出新型混合存储平台 张建华:FusionSphere不是简单的OpenStack发行版 Chrome 29来了:地址栏变得更“兼容” Android版增WebRTC 工程师谈在Facebook工作最糟糕的事情 用Scala重构19楼——SDCC 2013讲师王治专访 10款最新且超实用的开发框架 创业公司为什么应该写博客? 向iOS SDK看齐:Facebook Android SDK迎来重大更新 闯向海外:对话AppFlood产品总监陈霄 高手爱跨界:联想智能桌面,27寸大Pad抢先试玩 50美元求作业!access 有没有能够打印固定行数的报表? 请教接收视频信号的问题 VBscript转换为JScript? treeview的初级问题(解决立刻给分),关于节点的OnSelectedIndexChanged事件? 如何知道Clientdataset中哪些记录改变了? 如何构建Access数据库? 有没有soap client for ce 呀? 关于在不同环境下的时钟问题!!! 关于在一张图上标识位置的问题 vs.net 2003的msdn 安装好后为何不能使用? 如何在asp中post一段xml包到一个地址 vc1.0编译的问题 怎麽在Jbuilder中调用带参数的ORACLE数据库中的存储过程 如何用VB来写配置IIS的程序? 如何卸载xp? 如何知道DBGrid中当前编辑的字段的长度? 绝对经典 如何在安装程序中注册windows service,up有分!! 程序异常终止了,那么函数中的对象会被析构吗、变量空间会被归还吗 为什么能用网页打开一个url,用流读却出错,是不是端口被封了阿? 请问各位高手:关于建库后的几个疑点! 连接服务器的问题 请教:怎样将combobox选中的记录添加到数据库中呢? 简单问题,如何修改FORM中文本框中按回车后的行为。 根据名称获得页面的某些对象,以及对这些对象可以进行操作? 2.0的大灵通出现的奇怪问题,请斑竹、大虾给个说法吧 新手提问:大家帮帮忙! 连接服务器的问题 CPU有大小有不同,478和423指的是什么啊。 Tquery是可修改的,如何限制用向下键使Tquery新增一条记录,我不想有新增的功能 连接服务器的问题 在intraweb中,有关iwdbgrid数据记录的分页显视.... 如何用PB实现视频实时监控画面的传送? 本科没拿到学位的,参加在职考研,有戏吗? 请问使用ado能否创建数据库? ***** 请问局域网看电影的速度要求 ***** 触发器里一变量有多数据的问题 tomcat的启动问题 大家帮帮我,写个读文本文件的函数 关于fastReport的书那里有,书名是怎样或者在那个网站有有关fastReport的电子书可参考啊 组播的I/O处理 高手们帮忙啊,win2000锁住计算机是不能自动关机问题? 如何用JAVA实现视频实时监控画面的传送? 初学C++遇到问题,请各位老师指导一下! 问一个弱问题 高分求一个触发器,一个作业 页面url传递参数问题????急!!!!!!! null在VB里该如何表示 在组件com+控制台树中,加入另一台机器后,为什么无法访问和管理此机的com+。快疯了!!!!! xp中在“我的电脑”右键的“管理”怎么不能用了,说找不到文件‘(null)’。是怎么回事? 荷兰很小面积4万平方公里 人口1600万 为何这么发达? 制造cpu用的光刻机.荷兰asml公司占据全球市场份额百分之五十以上.剩下的就是日本的尼康佳能和一家美国的小公司. 加拿大2004年至2008年人口总数 今天看到 克里夫·巴克(恐怖电影大师) 的百度百科,百科里面记载他是黑暗哲学家,我不理解,什么是 黑暗哲学家 黑暗哲学家 和 正常的哲学家 有什么区别? 流芳百世的贬义词是什么 日本国土面积很小,但环境人口容量高 其主要原因是! 如何计算两个长整数的加减?比如说998877665544332211+112233445566778899怎么算?怎么定义.才学了1个月,全是迷茫啊 一块白铁皮零料形状如图,要从中裁出一块平行四边形白铁皮,并使四个顶点分别落在原白铁皮的四条边上.可以怎样裁,且面积要等与原来的一半.要证明!我咋也想不进去。 找一句名言,意思大概是:即使再黑暗的地方也会有光明写一篇观后感,是关于电影《美丽人生》的.需要用到这句名言.或者帮忙找篇写得好写的观后感参考.谢谢~~~ 丑—【 】—加偏旁【 】—再加偏旁【 】旁—【 】如上走—【 】如上但是要在现基础上,如丑改为扭,就要从扭再加一偏旁 “丑”能加什么偏旁?3个 关于一句名言:“在纯粹的光明里就像纯粹的黑暗中一样.”以前高中政治课学哲学时似乎有一句话,“在纯粹的光明里就像在纯粹的黑暗中一样,什么也看不见”.请问是谁说的?黑格尔?出自哪 吉林省雾霾渐退影响仍持续 学校停课面中国代表在联合国呼吁支持最不发达国家酝酿八旬六连任 麦凯恩欲2016年竞成人高考本周末开考今明两天发放准考证男子持韦小宝身份证乘火车 称只想开个早上拜孔子上课念四书五经 杭州郊外有菲总统再度表示菲政府不会就马尼拉人质以情报部长质疑伊朗谈判诚意 呼吁美国浙江临海户外休闲用品业蓬勃发展 企业莫斯科“双子星”餐厅 店员都是双胞胎澳大利亚第三季度通胀率达2.2%昆凌领衔有公主命却无公主病的10大女《我是歌手》第三季:不当表情帝的观众不可思议的奇迹,普通纯净水居然变强效小米海参粥暴跌后改革牛接棒,散户如何重新上路震惊!看看我们每天被洗脑多少次?儿子意外离世 录音成最后关联私募投资基金监督管理暂行办法荣信达会为艺人们合理规划发展的路径公私募年度PK 斗牛私募完胜刘翔葛天闪婚闪离是文体联姻的悲哀(图
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘