给个vb.net的,自己改改看,很简单的?
'先定义一个缓冲字节数组r
ProgressBar1.Maximum = CInt(fs.Length / r.Length)
fs.Position = 0
Do While fs.Position < fs.Length - 1
fs.Read(r, 0, r.Length)
ProgressBar1.PerformStep()'每读一次缓冲进度条进一
Loop