Question

我有一个richTextbox和一个while循环，x = 0，每次循环运行时，x + = 1直到达到某个值。

继承人我想要发生的事情：
while x <> 10 then 它会在新行上显示item 0 +1，然后在其下面的行上显示item 1 + 1等，这样您就可以看到所有10个值。

会发生什么，它会将该行更改为新值。

我的问题是：如何将文字换成新行呢？

这是我的代码：

While readListItem <> PaymentList.Items.Count
    If readListItem > PaymentList.Items.Count Then
        readListItem = 0
        Exit While
    End If
    readListItem += 1
    MessageBox.Show(readListItem)
    resultBox.Text = vbNewLine + PaymentList.Items.Item(readListItem) + " costs " + enteredCost + "." + vbNewLine
End While

readListItem是“x”，每次循环运行时都会迭代1 PaymentList是包含未知值的列表框（用户设置此列表中的项目数）

如果因为，在x =允许说10之后，它会向x添加另一个（现在它= 11）并尝试打印出第11个项目，因为它不存在，它会崩溃。这是为了防止这种情况。我不想尝试捕捉

Answer 1

尝试添加新值而不是替换整个值：

resultBox.Text &= Environment.NewLine() & PaymentList.Items.Item(readListItem) + " costs " + enteredCost + "."

在这种情况下，表达式&=与resultBox.Text = resultBox.Text & "..."等效。

一旦建议，您可以使用以下条件简化您的循环：

While readListItem < PaymentList.Items.Count
    '...
End While

在while循环中使文本转到新行

1 个答案: