Vb.net 在列表框项目之间添加文本

我正在使用vb.net表单

我有8个列表框（listbox1、listbox2、listbox3..），每一个都包含许多项和另一个空列表框（listbox10）。我正在尝试将第一个列表框项目添加到listbox10中

例如：）listbox1第一项为“A”，listbox2第一项为“b”，listbox3第一项为“c”…等等。现在列表框10的第一项必须是“Abc…”

问题是我想在每个列表框之间添加文本（字符串或数字）

例如：）listbox1第一项为“A”，listbox2第一项为“b”，listbox3第一项为“c”…等等。现在我希望listbox10的第一项是“字母ABC现在完成了”

其主要思想是组合所有列表框项目，并在它们之间添加文本，以创建一个有意义的句子

这是我的密码

Dim controls = New List(Of ListBox)() From _
{ListBox1, ListBox2, ListBox3, ListBox4, ListBox5, ListBox6, ListBox7, ListBox8}
    Dim minCount = Controls.Min(Function(x) x.Items.Count)
    For x = 1 To minCount - 1
        ListBox10.Items.Add(String.Join(" ", controls.Select
        (Function(lb) lb.Items(x).ToString)))
    Next

End Sub

---

我必须在哪里添加（字符串）

由于您希望在列表框项目之间放置不同的文本，因此必须删除字符串。请自己连接函数并在列表框中循环：

Dim sb As New StringBuilder
For i As Integer = 0 To controls.Count - 1
  For j As Integer = 1 To minCount - 1
    sb.Append(controls(i).Items(j).ToString)
  Next
  If i < controls.Count - 1 Then
    sb.Append(" " & i.ToString & " ")
  End If
Next
ListBox10.Items.Add(sb.ToString)

将sb设置为新的StringBuilder
对于i作为整数=0的控件。计数-1
对于j，整数=1到最小计数-1
sb.追加（控制（i）.项目（j）.字符串）
下一个
如果i

您说“在每个列表框之间”，但您的示例“字母是ABC”只是将文本放在字符串前面。不清楚你想要的是什么。如果您只需要引导文本：

ListBox10.Items.Add（“字母是”&String.Join（…

@LarsTech不，这只是个例子，先生..我想在不同位置的每个列表框之间添加很多不同的文本。你只想在字母前后添加文本吗？我正在试图找出字母之间的关系…例如listbox1 first items是“A”，listbox2 first items是“b”，listbox3 first items是“c”…等等.现在我希望listbox10的第一项是“字母A是B之前的字母，现在完成C”如果项目之间的文本不同，那么您将不得不丢失字符串。通过列表框集合连接并循环。顺便说一句，您的for循环是错误的，应该是

0到minCount-1

感谢您的支持，但是在哪里添加我的列表框？以及在每个列表框之前或之后在哪里添加自定义文本？？？@bod你的控件数组已经包含了列表框，所以我使用了你的示例。用你想要的任何文本替换

sb.Append（“&I.ToString&”）

行。我仍然不清楚你在那里做什么。我的意思是，如果使用相同的示例，我想在列表框1之前添加“hi”，在列表框4之前添加“hello”和“please”在listbox7…等…之后，主要思想是组合所有listbox7项，并在它们之间添加文本，以创建一个有意义的列表sentence@bod你可以在循环中放置一个

Select Case i

，并为每个循环输入文本。或者创建另一个“句子”数组用于每个列表框。但是您最好摆脱控制循环，为每个列表框创建一个句子。您可以添加一个简单的示例，说明如何在循环中插入select大小写吗？