Question

如何显示进度条

Answer 1

一、实现原理 采用一个完整的图片来作为进度条，每次当进度条改变时，采用先贴图再用背景色擦去不需显示的一段进度的方法来实现进度条的变化，可实现制作任何复杂美观的进度条。
二、准备工作
首先需准备一个如下图样式的进度条图片（当然你可以做你自己喜欢的样式）。然后在窗体中加入一PictureBox控件，属性设置如下：
AutoSize：True
Appearance：Falt
AutoRedraw：True
ScaleMode: Pixel
Picture：〃准备的图片〃
再加一辅助控件（只用于保存图片，方便快捷地使用进度条）Image，属性设置如下：
Picture：〃准备的图片〃
Visible：FALSE
说明：本文所讲的进度条并不是狭义上那种安装程序中常见的仅表示一个事件进程的进度条，而是把那些条形的，表示一个量的大小的图示统称为进度条。以此概念为基础让我们先来看看它的一些用途和类别，然后给出各类进度条的实现。
进度条的用途:
※在一般软件中表示执行进度
※在多媒体播放器中表示音量大小、频率节奏的变化…
※在游戏中表示角色的能量、生命值…
进度条的分类:
由以上用途可知,进度条大体可分为两类
第一类：自动变化的进度条（如安装程序中的进度条）
第二类：可由用户操作的进度条（如音量调节）
以下是两类进度条的代码。
实现第一类的方法：
Const MaxValue = 100
Const MinValue = 0
Dim Gene As Single
Dim ProValue As Single
Sub InitData()
Gene = Picture1.ScaleWidth / (MaxValue － MinValue)
End Sub
Sub SetProBar(value As Single)
Dim X As Single
ProValue = value
If ProValue > MaxValue Then
ProValue = MaxValue
Else
If ProValue < MinValue Then
ProValue = MinValue
End If
End If
Text1.Text = ProValue
X = (ProValue － MinValue) ＊ Gene
With Picture1
Picture1.Picture = Image1.Picture
Picture1.Line (X, 0)－(.ScaleWidth, .ScaleHeight), vbWhite, BF
End With
End Sub
以上是实现第一类进度条的全部代码，它有相当的独立性，不管你准备的进度条有多长，此代码都可无须改变而应用于你的系统中。其中，MAXVALUE、MINVALUE为此进度条所表示的最大最小值，可由实际应用而定。
PROVALUE 为当前的进度值，可由它得到当前值，以便处理。
SETPROBAR 为实际使用的过程，在软件中通过调用此过程来改变进度条的长度。VALUE 的取值为 MINVALUE～MAXVALUEINITDATA 是初始化进度条长度和实际要表示的范围的比例因子，在软件中首先要调用此过程完成初始化工作。
第二类实现方法：