Question

给VB6写的软件增加一个进度条

Private Sub cmdStart_Click()
If cmdSelAKeyPath.ToolTipText = "" Then MsgBox "关键字文件路径无效", vbExclamation, "提示": Exit Sub
If cmdSelBKeyPath.ToolTipText = "" Then MsgBox "关键字文件路径无效", vbExclamation, "提示": Exit Sub
If cmdSelCKeyPath.ToolTipText = "" Then MsgBox "关键字文件路径无效", vbExclamation, "提示": Exit Sub
If cmdSelDKeyPath.ToolTipText = "" Then MsgBox "关键字文件路径无效", vbExclamation, "提示": Exit Sub
If cmdSelEKeyPath.ToolTipText = "" Then MsgBox "关键字文件路径无效", vbExclamation, "提示": Exit Sub
If cmdSelFKeyPath.ToolTipText = "" Then MsgBox "关键字文件路径无效", vbExclamation, "提示": Exit Sub
If cmdSetSavePath.ToolTipText = "" Then MsgBox "文件保存路径无效", vbExclamation, "提示": Exit Sub
If cmdSelSrcPath.ToolTipText = "" Then MsgBox "文章源路径无效", vbExclamation, "提示": Exit Sub
'If cmdSetARate.ToolTipText = "" Then MsgBox "插入关键字A的密度无效", vbExclamation, "提示": Exit Sub
If cmdSetACount.ToolTipText = "" Then MsgBox "插入关键字A的次数无效", vbExclamation, "提示": Exit Sub
If cmdSetTotalRate.ToolTipText = "" Then MsgBox "插入总密度Y无效", vbExclamation, "提示": Exit Sub
SearchFiles akp, "*.txt"
ReDim key(0)
For i = 1 To UBound(Files)
LoadAKey i
Next i
LoadFiles sp
For i = 1 To UBound(fs)
StartProc i
Next
MsgBox "处理完毕", vbInformation, "提示"
End Sub

请帮For i = 1 To UBound(fs)增加一个进度条, 找了很久没有范例, 多谢帮助

Answer 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 ' 设置当前进度
Next

Answer 2

这样可以吗
For i = 1 To UBound(fs)
ProgressBar1.Max = 100
ProgressBar1.Value = (100 \ UBound(fs)) * i
StartProc i
Next