如何对列表框中的文本框输入的值求和？

Question

我有一个listbox1和一个textbox1，textbox2和textbox3。我试图从textbox1传输时在第一行中添加所有值，而从textbox2传输时在第二行中添加所有值。例如，如果我在列表框中两次传递500，则应将两个500相加，然后在listbox1中变为1000，并显示与项目1000类似的内容。textbox2同样。并且textbox1和textbox 2的总值应显示在textbox3中。

我的代码在这里

If TextBox1.Text = "" Then Exit Sub

If e.KeyCode = Keys.Enter Then

    ListBox1.Items.Add(TextBox1.Text)
    Dim sum As Double
    For x As Integer = 0 To ListBox1.Items.Count - 1
        sum += CDbl(ListBox1.Items(x))

    Next
    TextBox3.Text = sum
    TextBox1.Text = ""
End If

Answer 1

我在textbox1的keyup事件中尝试了此代码，并且工作正常。 但是我建议您，而不是for循环，您可以使用linq查询，如下所示：

 TextBox3.Text =   (From m In ListBox1.Items
                    Select CDbl(m)).Sum

我认为这是汇总项目集合的更快方法。