一个解压进度条的代码

事业男儿发布于 2012-10-23 16:36， 1674 次点击

在网上找到一个进度条实例，想把它改成解压一个压缩文件进度显示。就是解一个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
请版主和各位热心的好友帮我一下。谢谢。

6 回复

wp2319572012-10-23 20:05

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

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

wube2012-10-23 20:34

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

事业男儿2012-10-24 13:17

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

事业男儿2012-10-24 13:20

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

Artless2012-10-24 13:25

以下是引用事业男儿在2012-10-24 13:17:15的发言：

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

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

事业男儿2012-10-24 15:07

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

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