「算術運算導致溢出」在Me.Invoke與多線程

Question

我有這樣的腳本：

Private Sub WebDL_AmountDownloadedChanged(ByVal iNewProgress As Long) Handles WebDL.AmountDownloadedChanged 
    'On Error Resume Next 
    If downloading Then 
     Dim wbchanged As New WDL_AmountDownloadedChanged(AddressOf WebDLAmountChanged) 
     Me.Invoke(wbchanged, New Object() {CLng(iNewProgress)}) 
    End If 
End Sub 

在執行過程中，子接收到iNewProgress該值：，導致溢出：

系統.OverflowException未處理 Message =「算術運算導致溢出。」在System.Windows.Forms.Control.MarshaledInvoke（控制調用方，委託方法，對象[]參數，布爾同步） 來源= （Delegate method，Object [] args）

Answer 1

您沒有爲您發佈代碼WebDLAmountChanged方法。但是，錯誤消息說它的論據應該被聲明爲「長」但不是。修復：

Private Sub WebDLAmountChanged(ByVal progress As Long) 
    ' etc... 
End Sub