在网上找到一个进度条实例，想把它改成解压一个压缩文件进度显示。就是解一个rar压缩文件包。
Dim Total As String
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
lbl1.Caption = lbl1.Caption + 1
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
lbl1.Caption = "100"
End If
End Sub
请版主和各位热心的好友帮我一下。谢谢。

你准备如何调用解压程序啊  

你要是调用rar 来解压的话  好像就无法加进度条了   除非你字节写解压代码

你的问题点太难猜了...
Shell WinRAR 原本就有进度条了，何必另外写

就是解压一个文件，让进度条来显示解压进度。

顺便问一下，我想把1.exe放在程序文件里，怎么改一下路劲。
If Dir("\1.exe") = "" Then MsgBox "不存在！" Else Kill "c:\1.exe"

在解压代码中加控制进度条就行了。

版主，我的意思是 用VB编一个软件来解压一个.rar的压缩文件，想让软件判断什么时间解压完，同事解压的时间要与进度条同步。谢谢。

[ 本帖最后由 事业男儿 于 2012-10-24 15:13 编辑 ]