Арифметика переполнение прогресс бар

Question

Этот фрагмент загрузки FTP вызывает в «арифметическая операция приводит к переполнению» ошибки для некоторых файлов формата на линии bWorker.Report Прогресс

Dim fileStream() As Byte = System.IO.File.ReadAllBytes(TextBox1.Text) 
    Dim requestStream As System.IO.Stream = request.GetRequestStream() 
    For offset As Integer = 0 To fileStream.Length Step 1024 
     bWorker.ReportProgress(CType(offset * ProgressBar1.Maximum/fileStream.Length, Integer)) 
     Dim chSize As Integer = fileStream.Length - offset 
     If chSize > 1024 Then chSize = 1024 
     requestStream.Write(fileStream, offset, chSize) 
    Next 

Что я сделал не так?

Answer 1

Похоже, что значение offset * ProgressBar1.Maximum становится больше Integer.MaxValue (2147483647).

Вы можете избежать переполнения при выполнении расчетов в другом порядке:

bWorker.ReportProgress(CType(offset/fileStream.Length * ProgressBar1.Maximum, Integer)) 

И так случилось, что CType (х, Integer) может быть сокращен до CInt (х), так что вы могли бы написать чем меньше:

bWorker.ReportProgress(CInt(offset/fileStream.Length * ProgressBar1.Maximum))