一个关于进度条的问题!

Question

我的一个sql server 数据库很大,在备份的时候要好久, 所以我想加一个进度条.
大家在备份的时候是怎么做的?
请各位赐教!

Answer 1

在窗体中添加一个picturebox
在picturebox中放入一个标签（label1)
在picturebox右面放入一个标签（label2)
代码如下
Dim intpercent As Integer
Private Sub Form_Load()
    Timer1.Interval = 50
    Label1.Left = -Label1.Width
    Label1.BackColor = vbBlue
    Label1.Caption = ""
    Picture1.Width = 2000
    intpercent = 1
End SubPrivate Sub timer1_Timer()
    If Label1.Left + Label1.Width < Picture1.Width Then
       Label1.Left = Label1.Left + 20
        Label2.Caption = intpercent & "%"
        intpercent = intpercent + 1
    Else:
        MsgBox "安装完成"
        Timer1.Enabled = False
    End If
End Sub
'可以通过备份进程与Timer1.Interval的值来控制进度条进度，待完善