このオーバーフローを修正する方法例外は処理されていませんでした/算術演算でオーバーフローが発生しました

Question

私のコードでOverflowExceptionが得られました。

算術演算でオーバーフローが発生しました。あなたのd変数がある数値どんなタイプ

Private Sub txtSearch_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles txtSearch.KeyPress 
    Dim KeyAscii As Short = Asc(eventArgs.KeyChar) 
    d = 0 
    c = 0 
    Dim strTitle As String 
    Dim b As Short 
    Dim length As Short 
    length = Len(txtSearch.Text) 

    If KeyAscii = 13 Then 
     rf.MoveFirst() 
     If txtSearch.Text = "" Then 
      MsgBox("Search box empty.", MsgBoxStyle.Information) 
      txtSearch.Focus() 
     Else 
      Do Until rf.EOF 
       strTitle = rf.Fields("Title").Value 
       For b = 1 To Len(strTitle) - length 
        If Mid(strTitle, b, length) = txtSearch.Text Then 
         d = d + 1 
         Exit For 
        End If 
       Next 
       rf.MoveNext() 
      Loop 
      lblTotal.Text = "" & d 
      If d = 0 Then 
       MsgBox("Keyword not found.", MsgBoxStyle.Critical) 
       txtSearch.Text = "" 
       txtSearch.Focus() 
      Else 
       rf.MoveFirst() 
       Do Until rf.EOF 
        strTitle = rf.Fields("Title").Value 
        For b = 1 To Len(strTitle) - length 
         If Mid(strTitle, b, length) = txtSearch.Text Then 
          d = d + 1 '<-- Error occurs here. 
          Exit For 
         End If 
        Next 
       Loop 
      End If 
     End If 
    End If 
    eventArgs.KeyChar = Chr(KeyAscii) 
    If KeyAscii = 0 Then 
     eventArgs.Handled = True 
    End If 
End Sub 

Answer 1

は、これはあなたがその特定の種類のことが可能です何よりも大きな値にインクリメントしようとによって引き起こされます。

dがShortであれば、それはIntegerだ、それはどちらか2147483647の最大値を持つことになり、それがオーバーフローしそうだかどうかをチェックIf -statementsを追加したり、より大きな数値を使用する場合、それは32767の最大値を持つことになりますデータタイプ（例えば、Long）。

それぞれの最大値は、インスタンスInteger.MaxValue