在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颜色从下到上显示变化状态;
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载