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

[Elito]

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

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
کمکم کنید که اگه کمک نکنید کمکتون میکنن

[_H2_]

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

شما یک استریم را بایت به بایت میخوانید !!! بعد هم به ازای هر یک بایت ProgressBar را Refresh میکند !!!


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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

=====

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