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

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



VB中实现菜单分割 VB中实现带预览的对话框 VB中实现同一窗口的多个实例及控件的动态增减 VB中阴影字体的实现 VB自定义数据结构的传输转换 在activereport或水晶报表9中,如何用代码指定纸张大小(用户自定义)? 比较一下ORACLE和SQLSERVER? 客户端经常等待数据返回而死机,我跟踪了sql trace,但看不懂 我把一个SqlDataReader绑到两个DropDownList上,为什么只有一个值绑上了,而另一个没绑上?不几句代码,帮忙分析一下 拜求大家帮忙!!! 选择c语言教材 高分在线求教:如何编写ASP页网下载word文档的代码 熟悉日文编码的进来看看!!!!! 比较一下ORACLE和SQLSERVER? 英语翻译希望文字雅一点 英语翻译 英语翻译很快,他就查明了事实的真相 He_____ 英汉互译 快someting to eat———— 英语翻译:首先,他是很关心你的 英文翻译.为什么他这么关心你那? 英语翻译我是女生。 那么你最关注的是什么? “对于我来说,好朋友应该喜欢和我做同样的事”的英文 孙燕姿鲁豫户田惠梨香 女星骨瘦如柴太澳男子头部遭枪击送医后仅数小时自行离泰游船沉没已致6人罹难 包括一名中国美国务卿访问埃及 美将与埃过渡政府合农夫山泉派员举报《京华时报》 称实行自动驾驶大法好,可是汽车所有权还好吗火力全开的华硕一口气带来六款新品熊本地震影响 尼康DL系列延迟至九月受地震影响 传索尼A6300将面临缺搭载90-280mm镜头 徕卡SL套逆天行道录魔卡信用不败斗神葬天舞曲大地王紫云谷旅游桃花峪旅游塔湾金沙景区旅游射雕旅游城旅游毒蛇研究所旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘