VB各种进度条

VB编写进度条已经发展很久了，也有很多好方法。 VB自带的进度条很难看，一般不用，要用的话，代码如下： Private Sub Command1_Click() Dim counter As Integer Dim workarea(25000) As String ProgressBar1.Min = LBound(workarea) ProgressBar1.Max = UBound(workarea) ProgressBar1.Visible = True ProgressBar1.Value = ProgressBar1.Min For counter = LBound(workarea) To UBound(workarea) workarea(counter) = "initial value" & counter ProgressBar1.Value = counter Next counter End Sub 各位看官，直接看下面： Text实现进度条： 　　 Option Explicit Dim i As Integer Private Sub Form_Load() Timer1.Enabled = True   Text2.Width = (Form1.Width / 100) End Sub Private Sub Timer1_Timer() '进度条设置 Text2.Width = Text2.Width + (Form1.Width / 100) If (Text2.Width / Form1.Width) > 1 Then   Form2.Show '载入主画面   Unload Me End If End Sub Image进度条： Option Explicit Dim i As Integer Private Sub Form_Load()      JDT.Top = Lab.Top   JDT.Width = (Lab.Width / 100) End Sub Private Sub Timer1_Timer() '进度条设置 JDT.Width = JDT.Width + (Lab.Width / 100) If (JDT.Width / Lab.Width) > 1 Then   Form1.Show '载入主画面   Unload Me End If End Sub   那么更换N个image就会有N个进度条演示，下面示图，大家自己试试。 有看官马上问：那怎么显示百分比呢 这个不难，百分比代码： '加一个timer和一个label 'From:http://yxmhero1989.blog.163.com 'Author:Minghacker Dim b As Boolean Dim i As Integer Private Sub Timer1_Timer() If b Then i = i + 1 If Not b Then i = i - 1 If i > 100 Then i = 100: b = False If i < 0 Then i = 0: b = True Label1.Caption = CStr(i) + " %" End Sub Private Sub Form_Load() b = True i = 0 End Sub 这样两个配合，进度条加进度百分比，看客们该是熟悉了吧？具体时间和进度协调要看你的计算了。 Picture进度条： '例子需以下控件： 'Command1、Command2、Picture1：都采用默认属性设置 Dim ctEsc As Boolean Private Sub Form_Load()     '初始化控件    Picture1.AutoRedraw = True    Command1.Caption = "滚动条例子": Command2.Caption = "取消" End Sub Private Sub Command1_Click()    Dim I As Long, S As Long       ctEsc = False    S = 1000    For I = 1 To S       Me.Cls: Me.Print "显示：" & I       JinDuTiao I / S, "0.0" '显示进度条：进度,显示（即小数数位）       DoEvents       If ctEsc Then Me.Print "已取消": Exit Sub    Next    Me.Print "完毕" End Sub Private Sub Command2_Click()    ctEsc = True End Sub Private Sub JinDuTiao(Bi As Single, Optional nFormt As String = "0")    Dim W As Long, H As Long, nStr As String    Static UpBi As String       nStr = Format(Bi * 100, nFormt)    If Val(nStr) >= "100" Then nStr = 100       If UpBi = nStr Then Exit Sub       UpBi = nStr    W = Picture1.ScaleWidth: H = Picture1.ScaleHeight    Picture1.Cls    Picture1.DrawMode = 13    nStr = nStr & " %"    Picture1.CurrentX = (W - Picture1.TextWidth(nStr)) * 0.5    Picture1.CurrentY = (H - Picture1.TextHeight(nStr)) * 0.5    Picture1.Print nStr       Picture1.DrawMode = 14    Picture1.Line (0, 0)-(W * Bi, H), &HFF0000, BF    Picture1.Refresh End Sub shape进度条： '例子需以下控件:  'Command1、Command2、Label1、Label2、Shape1：都采用默认属性设置 Dim ctEsc As Boolean Private Sub Form_Load()    '初始化控件    Command1.Caption = "滚动条例子": Command2.Caption = "取消"    Label1.BorderStyle = 1: Label1.Caption = "0%"    Label1.Alignment = 2: Label1.Height = Me.TextHeight("A") * 1.5    Shape1.FillStyle = 0: Shape1.FillColor = &HFF0000: Shape1.DrawMode = 14    Shape1.Move Label1.Left, Label1.Top, 30, Label1.Height - Screen.TwipsPerPixelY * 2    Shape1.ZOrder End Sub Private Sub Command1_Click()    Dim I As Long, S As Long       ctEsc = False    S = 1000    For I = 1 To S       Me.Cls: Me.Print "显示：" & I       JinDuTiao I / S, "0.0" '显示进度条：进度,显示格式（即小数数位）       DoEvents       If ctEsc Then Me.Print "已取消": Exit Sub    Next    Me.Print "完毕" End Sub Private Sub Command2_Click()    ctEsc = True End Sub Private Sub JinDuTiao(Bi As Single, Optional nFormt As String = "0")    Label1.Caption = Int(Bi * 100) & "%"    Shape1.Width = Bi * Label1.Width End Sub   简单的就介绍至此，更简单的提示下，用控件，呵呵，这个最爽，可以做出各种效果。彩色到炫死！！！！  VB的第三方控件ccrpProgressBar是一个进度条的控件 是貌似不错，不过网上已经找不到了。 可以自己写过控件。 有个drowfiled不错，代码如下： '+++++++++++++++++++++++++++ Dim cb As Boolean Dim i  As Integer Dim plus1 As Boolean Dim plus2 As Boolean Dim plus3 As Boolean Dim m_beginColor                As OLE_COLOR Dim m_endColor                  As OLE_COLOR Dim m_Value                     As Byte Dim m_boxCount                  As Byte Dim m_boxSpace                  As Byte Const m_def_Value = 0 Const m_def_beginColor = &HFF Const m_def_endColor = &HFF00 Const m_def_boxCount = 30 Const m_def_boxSpace = 2 Public Property Get boxCount() As Byte   boxCount = m_boxCount End Property Public Property Let boxCount(ByVal New_boxCount As Byte)   m_boxCount = New_boxCount   If New_boxCount < 3 Then MsgBox "3-100": m_boxCount = 3   If New_boxCount > 100 Then MsgBox "3-100": m_boxCount = 100   PropertyChanged "boxCount" End Property Public Property Get boxSpace() As Byte   boxSpace = m_boxSpace End Property Public Property Let boxSpace(ByVal New_boxSpace As Byte)   m_boxSpace = New_boxSpace   If New_boxSpace > 5 Then MsgBox "1-5": m_boxSpace = 5   PropertyChanged "boxSpace" End Property Public Property Get Value() As Byte   Value = m_Value End Property Public Property Let Value(ByVal New_Value As Byte)   m_Value = New_Value   If New_Value > 100 Then MsgBox "1-100": m_Value = 100   PropertyChanged "Value"     ncolor1 = Right$("000000" & Hex$(m_beginColor), 6)   ncolor2 = Right$("000000" & Hex$(m_endColor), 6)     Call draw(ncolor1, ncolor2, m_boxCount, m_boxSpace) End Property Public Property Get beginColor() As OLE_COLOR   beginColor = m_beginColor End Property Public Property Let beginColor(ByVal New_beginColor As OLE_COLOR)   m_beginColor = New_beginColor   PropertyChanged "beginColor" End Property Public Property Get endColor() As OLE_COLOR   endColor = m_endColor End Property Public Property Let endColor(ByVal New_endColor As OLE_COLOR)   m_endColor = New_endColor   PropertyChanged "endColor" End Property Private Sub UserControl_InitProperties() i = 0: i2 = 0 m_beginColor = m_def_beginColor m_endColor = m_def_endColor m_Value = m_def_Value m_boxCount = m_def_boxCount m_boxSpace = m_def_boxSpace End Sub Public Sub Draw3DButton() 'pic, hdc As Long, X1 As Long, Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, mb As Boolean) On Error Resume Next   'UserControl, UserControl.Extender.hdc, 0, 0, UserControl.Width / Screen.TwipsPerPixelX + 1, UserControl.Height / Screen.TwipsPerPixelY + 1, 1)     x1 = 0   y1 = 0   x2 = UserControl.Width / Screen.TwipsPerPixelX + 1   y2 = UserControl.Height / Screen.TwipsPerPixelY + 1       shsh = UserControl.Height / Screen.TwipsPerPixelY + 1   If shsh > 1 Then   Dim i As Integer         Const k = 50     dx = y2 - y1     cdx = k / dx     If Not mb Then         j = 0         For i = y1 To y2 / 2             j = j + cdx             ccc = Int(255 - j) + 1             UserControl.Line (x1, i)-(x2, i), RGB(ccc, ccc, ccc), B         Next i                 For i = y2 / 2 To y2             j = j - cdx             ccc = Int(255 - j) + 1             UserControl.Line (x1, i)-(x2, i), RGB(ccc, ccc, ccc), B         Next i     Else         j = k         For i = y1 To y2             j = j - cdx             ccc = 255 - Int(j) + 1             UserControl.Line (x1, i)-(x2, i), RGB(ccc, ccc, ccc), BF         Next i     End If         End If End Sub Private Sub UserControl_ReadProperties(PropBag As PropertyBag) m_beginColor = PropBag.ReadProperty("beginColor", m_def_beginColor) m_endColor = PropBag.ReadProperty("endColor", m_def_endColor) m_Value = PropBag.ReadProperty("Value", m_def_Value) m_boxCount = PropBag.ReadProperty("boxCount", m_def_boxCount) m_boxSpace = PropBag.ReadProperty("boxSpace", m_def_boxSpace) End Sub Private Sub UserControl_Resize() If Width < 1000 Then Width = 1000 If Height < 50 Then Height = 50 Call Draw3DButton Static IsR As Boolean If IsR Then Exit Sub IsR = True If (Not m_boxCount = 0 And Not m_boxSpace = 0) Then     dw = ScaleWidth         Dim aw As Byte     cnt = m_boxCount     spa = m_boxSpace     aw = ((dw - spa) / cnt)         nw = (aw * cnt + 5)     Width = nw * Screen.TwipsPerPixelX End If IsR = False End Sub Public Sub draw(cl1, cl2, cnt, space) Dim color1 As String Dim color2 As String color1 = CStr(cl1) color2 = CStr(cl2) Dim aw As Byte     dw = ScaleWidth: aw = ((dw - space) / cnt) s = (dw / 100 * Value) / aw: i = s: j = i - 1 If i > cnt + 1 Then Exit Sub For j = 0 To i x1 = space + j * aw x2 = x1 + (aw - space) y1 = space - 1 y2 = (ScaleHeight - space) c11 = Val("&h" + Mid$(color1, 1, 2)) c12 = Val("&h" + Mid$(color1, 3, 2)) c13 = Val("&h" + Mid$(color1, 5, 2)) c21 = Val("&h" + Mid$(color2, 1, 2)) c22 = Val("&h" + Mid$(color2, 3, 2)) c23 = Val("&h" + Mid$(color2, 5, 2)) absC11C21_peraw = Int(Abs(c11 - c21) / cnt) absC12C22_peraw = Int(Abs(c12 - c22) / cnt) absC13C23_peraw = Int(Abs(c13 - c23) / cnt) If c11 > c21 Then plus1 = True Else plus1 = False If c12 > c22 Then plus2 = True Else plus2 = False If c13 > c23 Then plus3 = True Else plus3 = False If plus1 Then c31 = c11 - i * absC11C21_peraw If plus2 Then c32 = c12 - i * absC12C22_peraw If plus3 Then c33 = c13 - i * absC13C23_peraw If Not plus1 Then c31 = c11 + i * absC11C21_peraw If Not plus2 Then c32 = c12 + i * absC12C22_peraw If Not plus3 Then c33 = c13 + i * absC13C23_peraw If c31 <= 0 Then c31 = 0 If c32 <= 0 Then c32 = 0 If c33 <= 0 Then c33 = 0 If c31 >= 255 Then c31 = 255 If c32 >= 255 Then c32 = 255 If c33 >= 255 Then c33 = 255 Line (x1, y1)-(x2, y2), RGB(c33, c32, c31), BF Next j For j = i + 1 To cnt     x1 = space + j * aw     x2 = x1 + (aw - space)     y1 = space - 1     y2 = (ScaleHeight - space)     Line (x1, y1)-(x2, y2), RGB(255, 255, 255), BF Next j End Sub Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Call PropBag.WriteProperty("beginColor", m_beginColor, m_def_beginColor) Call PropBag.WriteProperty("endColor", m_endColor, m_def_endColor) Call PropBag.WriteProperty("Value", m_Value, m_def_Value) Call PropBag.WriteProperty("boxCount", m_boxCount, m_def_boxCount) Call PropBag.WriteProperty("boxSpace", m_boxSpace, m_def_boxSpace) End Sub 效果如下图：   找到网上的一篇活文，可惜死掉了，因为这个控件不再了。 用ccrpProgressBar制作各式各样的进度条       VB的第三方控件ccrpProgressBar是一个进度条的控件，可以有多种形态供选择。比起VB 中自带的进度条控件ProgressBar更有个性。 　　 在VB中自带了一个进度条控件ProgressBar，但功能简单。我向大家推荐一个VB的第三方进度条控件ccrpProgressBar。该控件功能强大，有多种形态供选择，而且只需要简单的设置控件的属性就能实现,非常的好用。下面通过一个例子向大家介绍该控件的用法。 　　 （1） 加载控件 　　 启动Visual Basic 6.0，创建一个并保存为"工程1.vbp"，同时产生一个名为"Form1"的窗口。在工具箱的空白处单击鼠标右键，从弹出的快捷菜单中启动"部件"窗口，如图1所示。 图1 　　 点击"浏览"按钮，从存放ccrpProgressBar控件的文件夹中找到ccrpprg.ocx文件。 　　 点击"应用"后ccrpProgressBar控件就添加到工具箱中。如图2。 图2 　　 （2） 设计窗体和控件 　　 向窗体中添加9个ccrpProgressBar控件和一个Timer控件。如图3。 图3 　　 Timer控件属性页的设置如图4所示。Interval的值设置为100，与ccrpProgressBar控件的默认值一致。Enabled设置为False。 图4 　　 （3） ccrpProgressBar控件的主要属性 　　 ·Max:最大值。默认100。 　　 ·Min:最小值。默认0。 　　 ·Value:进度条的当前值。 　　 ·Alignment：显示示进度的文字的位置。分别为vbCenter（中间），vbLeftJustify（左边），vbRightJustify（右边）。 　　 ·Appearance：进度条的3种外观。分别为prgFlat（平面），prg3D（立体） prg3Draised（立体凸起）。 　　 ·BackColor：进度条的背景色。 　　 ·FillColor：进度条的颜色。 　　 ·ForeColor：表示进度文字的字体颜色。 　　 ·Picture：进度条可用图片表示进度，从这里选择需要的图片。 　　 ·Shape：进度条的形状。有prgRectangle(默认)，prgEllipse和prgRoundedRect三种。 　　 ·Smooth： 是否平滑显示进度。True为平滑显示进度。 　　 ·Vertical：是否垂直显示进度条。True为垂直显示。 　　 ·Style：进度条的风格。当选ChkGraphical时为用图片表示进度。 　　 ·AutoCaption：表示进度的"文字提示"所采用的表现形式。CcrpPercentage为百分比的形式，ccrpValueOfMax为类似 1 of 100 的表现形式。Value为数字的表现形式。 　　 （4）本例中ccrpProgressBar控件属性的具体设置 　　 本例中共使用了9个ccrpProgressBar控件，每个ccrpProgressBar控件的具体设置如下： 　　 1. CcrpProgressBar1：保持属性各项不变。 　　 2. CcrpProgressBar2：Appearance的值设置为prg3D（表示用立体外观）。 　　 3. CcrpProgressBar3：Appearance的值设置为prg3Draised（立体凸起），AutoCaption设为ccrpPercentage（百分比的形式表示进度），Alignment设为vbLeftJustify（表示进度的文字靠左）。 　　 4. CcrpProgressBar4：BorderStyle设置为ccrpFixedSingle，AutoCaption设为ccrpPercentage（百分比的形式表示进度），Alignment设置为vbCenter（表示进度的文字在中间） 　　 5. CcrpProgressBar5：Style设置为chkGraphical（用图片来表示进度）。单击"Picture"属性，选择你准备好的图片。同样，AutoCaption也设为百分比的形式表示进度，不过这次Alignment的值设置为vbRightJustify（进度文字靠右）。 　　 6. CcrpProgressBar6：Shape设置为prgEllipse（椭圆型），AutoCaption设为ccrpValueOfMax（文字以类似 1 of 100 的表现形式） 　　 7. CcrpProgressBar7：Shape设置为prgRoundedRect（圆角矩形），AutoCaption设为ccrpValue（数字形式）。 　　 8. CcrpProgressBar8：Vertical设置为True,表示垂直显示进度条。Smooth设置为True，表示平滑显示进度。 　　 9. CcrpProgressBar9：Vertical属性同8的设置，不过这回给它加上百分比显示, AutoCaption设为ccrpPercentage。 　　 然后再分别调整好9个CcrpProgressBar控件的FillColor和ForeColor属性，搭配好颜色。使界面更协调。 　　 （5）编写代码 　　 设置好控件的属性后，在程序中加入以下代码，完成进度条的功能。 Dim i As Integer Private Sub Form_Load() 　 Timer1.Enabled = True 　 '2个垂直显示的进度条的位置 　 With ccrpProgressBar8 　　 .Left = 5280 　　 .Top = 360 　　 .Height = 3800 　　 .Width = 396 　 End With 　 With ccrpProgressBar9 　　 .Left = 6200 　　 .Top = 360 　　 .Height = 3800 　　 .Width = 396 　 End With End Sub Private Sub Timer1_Timer() 　 If i = 100 Then 　　 End 　 End If 　 ccrpProgressBar1.Value = i 　 ccrpProgressBar2.Value = i 　 ccrpProgressBar3.Value = i 　 ccrpProgressBar4.Value = i 　 ccrpProgressBar5.Value = i 　 ccrpProgressBar6.Value = i 　 ccrpProgressBar7.Value = i 　 ccrpProgressBar8.Value = i 　 ccrpProgressBar9.Value = i 　 i = i + 1 '变量i自增 End Sub 　　 运行程序，运行中的效果如图5所示。 下面一篇文章是网上盛传的。 一切都在变，就连进度条这个小东西也在发生着变化，由以往的单色形式变成了现今更加亮丽的过渡色形式甚至更为复杂漂亮的形式，给软件也增添了不少色彩。我在这里要告诉各位制作一种非常简便实用的制作方法： 　　一、实现原理 　　采用一个完整的图片来作为进度条，每次当进度条改变时，采用先贴图再用背景色擦去不需显示的一段进度的方法来实现进度条的变化，可实现制作任何复杂美观的进度条。 　　二、准备工作 　　首先需准备一个如下图样式的进度条图片（当然你可以做你自己喜欢的样式）。然后在窗体中加入一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 是初始化进度条长度和实际要表示的范围的比例因子，在软件中首先要调用此过程完成初始化工作。 　　第二类实现方法： 　　要实现此类进度条，只需在第一类的基础上再加上响应用户操作的部分即可 　　具体所加代码如下： 　　Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single,Y As Single) 　　If Button = 1 Then 　　Picture1_MouseDown Button, Shift, X, Y 　　End If 　　End Sub 　　Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single,Y As Single) 　　If Button = 1 Then 　　ProValue = Int(X / Gene ＋ MinValue ＋ 1) 　　SetProBar ProValue 　　End If 　　End Sub 　　应用示例： 　　建一工程，然后加入下列控件，并写入所示代码即可。 　　控件：两个PictureBox，组成控件数组（属性设置如上）但：picture1(0)的BorderStyle:None 两个Label，组成控件数组并分别以与自已Index 值相同的PictureBox为父控件（只需把Label绘在或粘贴在相应的PictureBox上即可）属性： 　　AutoSize：True 　　Alignment：Center 　　BackStyle：Transparent 　　Label（1）： Caption：″当前音量0″ 　　Enabled：False 　　Label（0）： Caption：″0％″ 　　一个Timer:属性：Interval：50 　　三、实例 　　一个自动的进度条和由用户控制的进度条。 　　Option Explicit 　　′如果有多个进度条且表示值的范围不同 　　′则可设立一组范围值，最好能通过INDEX 　　′值同自已的进度条建立对应关系，以方便处理 　　Const MaxValue = 100 　　Const MinValue = 0 　　Dim Gene As Single 　　Dim ProValue(1) As Single 　　′生成比例因子，必须首先执行 　　Sub InitData() 　　Gene = Picture1(0).ScaleWidth / (MaxValue － MinValue) 　　End Sub 　　′根据当前进度值设置进度条，INDEX指出是哪个进度条的值 　　Sub SetProBar(value As Single, Index As Integer) 　　Dim X As Single 　　Dim BkColor As Long 　　ProValue(Index) = value 　　′对当前进度值超出范围的处理 　　If ProValue(Index) > MaxValue Then 　　ProValue(Index) = MaxValue 　　Else 　　If ProValue(Index) < MinValue Then 　　ProValue(Index) = MinValue 　　End If 　　End If 　　′在存在多个进度条时分别设置各进度条的不同文本 　　Select Case Index 　　Case 1 　　Label1(Index).Caption = ProValue(Index) ＆ ″％″ 　　Case 0 　　Label1(Index).Caption = ″当前音量″ ＆ ProValue(Index) 　　End Select 　　′计算出当前进度值所对应的进度条位置 　　X = (ProValue(Index) － MinValue) ＊ Gene 　　With Picture1(Index).Picture = Image1.Picture 　　′把当前进度值所对应的进度条位置之后的图片用白色盖住 　　′它是此法实现思路的核心 　　Select Case Index 　　Case 1 　　bkcolor = vbWhite 　　Case 0 　　bkcolor = vbMenuBar 　　End Select 　　Picture1(Index).Line (X, 0)－(.ScaleWidth, _ .ScaleHeight), bkcolor, BF 　　End With 　　End Sub 　　′首先初始化比例因子 　　Private Sub Form_Load() 　　InitData 　　End Sub 　　′在用户操作INDEX为0的进度条时的响应 　　Private Sub picture1_MouseMove(Index As Integer, _ 　　 Button As Integer, Shift As Integer, X As Single, Y As Single) 　　If Button = 1 And Index = 0 Then 　　Picture1_MouseDown Index, Button, Shift, X, Y 　　End If 　　End Sub 　　′根据当前鼠标坐标的X值（进度条若为纵向则使用Y值） 　　′计算出所对应的当前进度值，然后设置进度条 　　Private Sub Picture1_MouseDown(Index As Integer, _ 　　 Button As Integer, Shift As Integer, X As Single, Y As Single) 　　If Button = 1 And Index = 0 Then 　　ProValue(Index) = Int(X / Gene ＋ MinValue ＋ 1) 　　SetProBar ProValue(Index), Index 　　End If 　　End Sub 　　′在演示中以定时器定时设置进度 　　′实际使用时当然是按事件完成的 　　′百分比来设置进度 　　Private Sub Timer1_Timer() 　　Static curval As Single 　　SetProBar curval, 1 　　curval = (curval ＋ 1) Mod MaxValue 　　If curval = 0 Then 　　curval = MinValue 　　End If 　　End Sub 12/12