给VB6写的软件增加一个进度条
给VB6写的软件增加一个进度条
日期：2012-06-10 22:20:06 人气：1
添加部件"Microsoft Windows Common Controls 5.0(SP2)"，然后把进度条控件拖到窗体上：
LoadFiles sp
' 插入这三行初始化进度条控件：
ProgressBar1.Min = 1
ProgressBar1.Max = UBound(fs)
ProgressBar1.Value = 1
For i = 1 To UBound(fs)
StartProc i
ProgressBar1.Value = i '