Question

嗨我有一个richtextbox，每行都有特定的数字，我想加上所有的数字。它现在有效，但它最多只允许4行。如果我在richtextbox3.text中有超过4行，我会得到overflowexception unhandled error。如果richtextbox3.text为4或更低，它可以正常工作。

    Dim strLines() As String
    Dim lngLoop As Long
    Dim lngvalue As Long
    Dim lngTotal As Long
    strLines = Split(RichTextBox3.Text, vbCrLf)
    lngTotal = 0
    For lngLoop = LBound(strLines) To UBound(strLines)
        lngvalue = Val(strLines(lngLoop))
        lngTotal = lngTotal + lngvalue
    Next
    Dim stringArray As String() = RichTextBox3.Text.Split(ControlChars.Lf)

    Dim sum As Double = 0
    For Each element As String In stringArray
        sum += Convert.ToInt32(element)
    Next




//RichTextbox3.text  
  2000
  1000
  3000
  1000
  4000

Answer 1

由于换行符有时会使用不同的字符，因此您的拆分实际上无法正常工作。

尝试使用RichTextBox控件中的Lines属性：

Dim sum As Integer = 0
For Each s As String In RichTextBox3.Lines
  Dim num As Integer = 0
  If Integer.TryParse(s, num) Then
    sum += num
  End If
Next

添加richtextbox vb.net中的所有数字

1 个答案: