从不同行的字符串填充列表框

Question

我有一个查询，它返回一个列表框中但不在另一个列表框中的项目列表。我想将结果放入不同的列表框中，问题是当我尝试将结果放入列表框时，它会将它们全部放在同一行。假设它返回三个结果（project_green Project_blue_project_red），它将它们作为（project_greenproject_blueproject_red）添加到列表框中的一行。我希望每个项目都在自己的行中，但我无法将它放在那里。

这是我的代码

Dim result As List(Of String) = (From s1 As String In Me.ListBox1.Items Where Not Me.ListBox4.Items.Contains(s1) Select s1).ToList()
ListBox5.Items.Add(String.Join(Environment.NewLine, result))

任何帮助将不胜感激。

谢谢

Answer 1

Dim result = From s1 As String In ListBox1.Items Where Not ListBox4.Items.Contains(s1) Select s1
ListBox5.Items.AddRange(result)

这也为您节省了大量额外的内存。当 IEnumerable 结果表单 linq 查询已经自行完成时，无需分配 List。

虽然我个人不喜欢查询理解语法，但更喜欢这样写：

Dim result = ListBox1.Items.Where(Function(s1) Not ListBox4.Items.Contains(s1))
ListBox5.Items.AddRange(result)