چرا ProgressBar سرعت برنامه رو نجومی پایین آورده ؟

چرا تو این برنامه‌ای که نوشتم وقتی کدهای ProgressBar رو اضافه میکنم برنامه ده - بیست برابر کندتر کار میکنه ؟:18:
تو فایل‌های بزرگ که دیگه دق میاره:41:

ProgressBar1.Minimum = 0
ProgressBar1.Maximum = FileLen(sOldFilePath)
ProgressBar1.Value = 0
While True
data = oOldFileStream.ReadByte()
If data = -1 Then Exit While
oCryptoStream.WriteByte(CByte(data))
ProgressBar1.PerformStep()

End While

حالا چیکار کنم . تنها جایی هم که ProgressBar کار میکنه تو حلقه While
کمکم کنید که اگه کمک نکنید کمکتون میکنن:31:

سلام
عزیز دل بابا!!! آخه این چه کدی است نوشته اید؟؟؟
من هم وحشت برم داشت!!! :31:

شما یک استریم را بایت به بایت میخوانید !!! بعد هم به ازای هر یک بایت ProgressBar را Refresh میکند !!!
:3::32::blink::40::37::19::24::33::31:

حداقل کدتان را چنین اصلاح کنید: (این کد عملیات را در بولکهای 64KB انجام میدهد)

کد:

---

Const BUFFERSIZE As Integer = 64 * 1024
Dim buffer(BUFFERSIZE - 1) As Byte
Dim iRead As Integer
 
Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Maximum = CInt(oOldFileStream.Length \ BUFFERSIZE) + 1
Me.ProgressBar1.Step = 1
 
Do While (True)
    iRead = oOldFileStream.Read(buffer, 0, BUFFERSIZE)
    If (iRead <= 0) Then Exit Do
    oCryptoStream.Write(buffer, 0, iRead)
 
    Me.ProgressBar1.PerformStep()
Loop
 
Me.ProgressBar1.Value = Me.ProgressBar1.Maximum

---

( البته من این کد را همینطوری همینجا به عنوان نمونه نوشتم، شاید نیاز باشد اصلاحش کنید )

=====

البته در صورت نیاز و حجیم بودن عملیات باید از مباحث چند ریسمانی هم استفاده کنید.
موفق باشید.