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

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



微软改进Windows Blue搜索 系统或今夏推出 移动新趋势:扁平化设计 vs. 拟物化设计(下篇) 传奇程序员:Minecraft开发者Notch大神 让沟通更便捷 ConnectYard宣布推出全新的Web API 在Hadoop上运行SQL:程序员需知晓的13种数据工具 怎样用好Eucalyptus? AWS攻势变猛,Rackspace主动降价CDN与云存储 惠普将于下季度推出低功耗的Moonshot服务器 webOS复活!LG收购webOS用于智能电视 那些因为HTML5而将消亡的产品 初窥iWatch用户界面:开创基于时间的全新体验 如何编写出拥抱变化的代码? 20个优秀的前端框架 以AWS和vCloud为标杆看四大开源平台的定位 桌面集成开发环境五年内必将“死亡”? 助影人圆梦奥斯卡 8mm相机应用其实很平庸 苹果应用审查团队叫停Cookie追踪技术 时势造英雄:中国早期O2O创业故事 iOS开发与Android开发的四大不同 “消极抵抗”AWS OpsWork?RightScale首次宣布转售并支持GCE 2012年VC都把钱投给了哪些大数据初创公司? 耐用性将成苹果iWatch最大挑战 Sphinx:首款全硬件加速HTML5游戏引擎发布 PayPal创始人Levchin又创办了一家移动支付公司Affirm Zuck、Bill Gates、Jack Dorsey上银幕激励孩子编程 十款最新开源的开发者工具/应用(组图) Django 1.5发布,Python 3开始进入主流? [爆料]英特尔:将Hadoop“固化”到Xeon中 姗姗来迟:微软终于发布Windows 7 IE10正式版 谷歌推Google+登录系统 与Facebook争夺用户信息 微软在CodePlex上开源C++ REST SDK 代号Casablanca 提问:关于软件测试的若干问题,谢绝灌水者入内!高薪聘请业内人士! 请问用javascript怎么显示客户端的IP地址?谢谢 sql问题 oracle中什么权限,才能使一个用户下的表参考另一个用户下的表(就是外键)? 种了中国一号病毒,怎样才能铲草除根? yinx(yinx)请进,拿你应得的分数 请各位高手帮忙,有高分送上。 一个SQL语句的问题。谢啦 为什么我的msdn帮助系统“目录”、“索引”等里的标题都显示不出来了呢? 存储过程只能用一种方式调用吗? 数据库字段问题 如何在ADO的SQL控件中不用ODBC完成长型备注型字段的模糊查询 数据库连接问请各位指点(300分) 圖像控件和報表製作 创天中文版是怎么汉化的?我想把它改回英文的要怎么改? 请问有没有Linux版本的QQ? 找DriverStudio2.5正式版 VB6中不能使用ACCESS2000数据库??? vb中怎么调用dos命令 请问海星... 哪有visual age3.0下载? 有关FTP 我双击注册表编辑器出现"注册表编辑器被管理员禁用"是怎么回事?怎么解决? 如何更改Oracle显示日期的默认方式? *****高手请进****** ======================各位高手,看一下!UP也有分! 请问安徽的高程成绩什么时候可以查? 请问谁知道vb里面如何调用notes对象,怎么调用? 急急急,我好急,有没有办法先把记录集处理一下在绑顶到datagrid 请问为什么这一段XML代码运行不了???为什么???帮帮忙??多谢!! 请教有关手机方面的问题 连编好的可执行文件不能用 帮帮忙啊 哪儿有免费的jsp空间并且有数据库支持的?谢谢 客户机的WinSock控件采用TCP协议,如何使用预设的固定的端口? sos!Help me! 有谁知道怎样用Capwnd控件(用于捕获视频的控件)?? 请帮我看看,谢了 请问如何控制imagecombo控件的下拉高度呢? 能告诉我什么是回调函数吗?注册的系统回调函数中引入的参数能在别的地方得到吗? 在RicheEdit里的字体颜色都是黑色,能变成其他颜色吗? 请问在视中如何使主框架的某个菜单项变为不可用(代码如下,错在什么地方,如何改?)! 请教VFP中GRID的显示和取值问题 请教一些有关用ROSE进行UML设计的问题 高薪寻找合作者:医院信息管理系统 求救!!!!为什么必须多按reset键才可以启动?? 請教: WideString如何存入數據庫image字段? 如何判断一个字符串是数字串?要源码(无内容) 登陆某些网站后浏览器的默认主页不能更改,怎么办???谢谢 请教简单的API函数的问题 ! 简单问题,怎么样得到下拉列表的选项?????最好有简单的原码 已知等比数列{an}的同项公式为an=3^n-1,设数列{bn}满足对任意自然数n都有b1/a1+b2/a2+b3/a3+...已知等比数列{an}的同项公式为an=3^n-1,设数列{bn}满足对任意自然数n都有b1/a1+b2/a2+b 已知数列(an)的前n项和是Sn=n²+3n+1(n属于N*).则a1+a3+a5+……a21= 我做出来是285,答案是265 上海哪儿有出售双组分加成型室温硫化液体硅橡胶的?做复杂腔体的模型,便于从腔体内部拔出. 硫化皮带需满足哪些要求 已知数列{an}满足a1+a2+a3+……+an=2n²-3nº则a5=? 三元乙丙橡胶在微波硫化生产线硫化后表面怎么会有像油斑一样的现象 皮带硫化接头如何计算? 已知数列 ﹛an﹜的前n项和Sn=n²+2n-1 则a1+a3+a5+……a25= 三元乙丙橡胶l硫化后太脆怎么办 煤属于岩石吗 已知数列{an}的前N项和Sn=2n²-3n,而a1,a3,a5,a7.组成一组新数{Cn},求其通项公式. 为什么燃料燃烧不充分会浪费资源?从化学角度答没人会么 硫化皮带措施怎么写啊? 数列an的前n项和Sn=3n-n²,则an 哪些未燃烧的燃料会引起空气污染 热硫化皮带的危害我是一名煤矿工人,想要咨询一下硫化皮带的危害:包括硫化时产生的气体和所使用的化学物品《胶浆》的危害. 数列 an 的前n项和sn=2n²-3n,则an= 三元乙丙橡胶在硫化时用什么物质能使它以丙纶黏在一起? 已知各项均为正数的数列{an}前n项和为Sn,2Sn=3an-9(1)求{an}的通项公式(2)若bn=log3 an,Tn为数列{1/(bn*b(n+1))}的前n 项和,证明Tn<1/2 硫化橡胶具有较高的强度和化学稳定性,它具有什么结构 人类利用化石能源的比重超过生物能源开始于什么时间 已知数列{an}中a1=1 an+1=3an 数列{bn}的前几项和Sn=n^2+2n,设cn=an*bn,求Tn=C1+C2=C3=-----Cn 硫化橡胶具有( ) 结构 生物能源与化石能源的联系是什么拜托了各位 谢谢 下面哪些是矿物?哪些不是?水晶,岩石,宝石,玉石,冰,雪花,煤,石油 根据大气的温室效应原理 说明导致全球气候变暖的主要人为原因是人类燃烧矿物燃料 求和1+3*3+5*3^2+...+(2n-1)*3^(n-1) 数列an 中 a1=4.an=(3an-1+2)/(an-1+4) 数列bn中,bn=(an-1)/(an+2) ,求bn 以乙醇为燃料不会增加大气乙醇相对于矿物燃料的燃烧为什么不会增加大气中的CO2 地球的化石能源还能供给多少年 数列{an} {bn}满足:a1=0 a2=1 a(n+2)=[an+a(n+1)]/2 bn=a(n+1)-an 求证 bn是等比数列和 bn的通向公式 数列an满足an+1=3an-2 a1=2,令bn=an-1求证Bn是等比数列 近年来,随着工业的发展,人类大量燃烧煤,汽油,天然气,向大气中排放的二氧化碳日益增多,使全球气温有明显变暖的趋势.2001年,地球上出现了一百多年来创纪录的高温,使全球平均温度为15.5℃.( 在沼气、石油、医用酒精、钢、干冰、熟石灰中属于含有碳元素的混合物有几种? 已知数列{an},a1=1/2,a(n+1)=3an+1,bn=an+1/21)求证{bn}是等比数列2)求an的通项式 燃料能在空气中燃烧,为了人类提供() 我们生活中的石油煤气是不是地底下的沼气? 二次硫化皮带后,是不是说明接头不能用了,需要重新做接头 燃料能在空气中燃烧,为人类提供▲ 液压系统上的压力表指示要换算成油压应该怎样算呀? 哪位大虾有装载硐室皮带机安装预算?尤其是输送皮带硫化接头面积是如何计算的. 已知Sn为数列{an}的前n项和,且Sn=2an+n²-3n-2,n=1,2,3,4,5......1.已知Sn为数列{an}的前n项和,且Sn=2an+n²-3n-2,n=1,2,3,4,5......1.求证:数列{an-2n}为等比数列2.设bn=an·cos nπ,求数列{bn}的前n项和Pn 3.设cn=1/ 液压系统的回油压力是怎么回事 对于高转速,负载大的皮带如何保证硫化接头的粘合强度? 温室气体 为什么温室气体的增加会使气温上升?为什么温室气体的增加会使气温上升?说的简单点儿. 下列物质不能作为能源的是:A天然气B石油C煤D石灰石 美国好像发明了一种新技术,从岩石开采石油,别说不可能,参考消息上写着的,有了这个技术,预计美国会成为世界第一大产油国,知道的回答,确实有这种技术 钛铁的用途是什么?请最好能分别介绍高钛和低钛的用途.谢谢冰蓉雪花的回答,但我想要的答案是具体钛铁用于哪些钢种的生产,除了炼钢以外还有什么其他的用途。除了钢厂会采购以外, 已知两个等比数列{an},{bn},满足a1=a(a>0),b1-a1=1,b2-a2=2,b3-a3=3,若数列{an}唯一,求若数列{an}唯一,求a的值 硫化橡胶皮带后怎么会有气孔? 二硫化硅是什么物质?有什么用途? 已知两个等比数列{an},{bn},满足a1=a(a>0),b1-a1=1,b2-a2=2,b3-a3=3问题(1)若a=1.求数列(an)的通 (2)若数列{an}唯一,求a的值 输送带接头硫化时,在清洗皮带与胶料时除了用120号溶剂汽油,还可以用什么呢 二硫化锰的用途是什么,有没有二硫化锰基润滑脂? 已知两个等比数列(Sn).(Bn).满足a1=a(a>0),b1-a1=1,b2-a2=2,b3-a3=3,(1)若a=1.求数列(an)的通 已知数列{an}的通项为an=2/(n²+3n),则其前n项和Sn=? 怎样减少温室气体的增加 在数列{an}中,a1+a2+a3+...+an=n-an(n=1,2,3...),设bn=an-1,求证数列{bn}是等比数列,设Cn=bn·(n-n^2)(n=1,2,3...),如果对任意n属于正整数,都有Cn 已知数列{an}的前项和Sn=2n²+3n-3,则求数列{an}的通项公式 全球变暖是由于什么矿物能源的大量开采使用
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn