如何将列表框的所有项目添加到文本框

Question

我有很多ListBox项目，我需要将其复制到TextBox。我已经有些工作了，但是TextBox似乎在vbnewline之后添加了Value1。我觉得我缺少明显的东西。

这是我的代码：

TextBox2.Text = ""
For Each I As String In ListBox1.Items
    TextBox2.Text = TextBox2.Text & I
Next

这里是屏幕截图，因为我无法发布TextBox，因为它的外观与“ ListBox”相同。

Answer 1

您的列表项中可能包含换行符。 ListBox不会显示这些，但是TextBox将

TextBox2.Clear()
For Each I As String In ListBox1.Items
    TextBox2.AppendText(I.Replace(vbCr, "").Replace(vbLf, ""))
    TextBox2.AppendText(Environment.NewLine)
Next

请为控件命名，而不是“ ListBox1”，“ TextBox2”。在窗体上放置控件后，需要几秒钟的时间单击属性网格中的（名称）行并键入其他内容。

到您完成添加27个文本框，54个标签，6个列表，9个数字下移，一些网格，复选框，单选按钮等时，整个程序代码将毫无意义地浪费TextBox16.Text = List5.Items.Count & If(NumericUpDown38.Value > Grid13.Count, Checkbox62.Checked, Checkbox12.Checked)，并且没有-互联网上的一个人想提供帮助。良好的命名至关重要。如果Microsoft没有选择清晰且相关的属性名称，那么您的代码就不会说TextBox1.Text = ""和For Each x as String in ListBox1.Items，而是TextBox1.String1 = ""和For Each x as String in ListBox1.ObjectCollection1（并且您不想使用它！）