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

【问题标题】：How to add all the items of a list box to a textbox如何将列表框的所有项目添加到文本框
【发布时间】：2020-09-17 18:49:54
【问题描述】：

我有许多 ListBox 项目，我需要将它们复制到 TextBox。我有点让它工作了，但TextBox 似乎在我的Value1 之后添加了vbnewline。我觉得我错过了一些明显的东西。

这是我的代码：

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

这是一个屏幕截图，因为我无法发布 TextBox，因为它看起来与“ListBox”相同。

【问题讨论】：

标签： .net vb.net visual-studio-2012 textbox listbox

【解决方案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”（“_SiteList”怎么样？）或“TextBox2”更有意义的名称。将控件拖放到窗体上后，需要几秒钟来单击属性网格中的 (Name) 行并键入其他内容。

当您完成添加 27 个文本框、54 个标签、6 个列表、9 个数字上下、一些网格、复选框、单选按钮等时，您的整个程序代码将难以理解，并且您会不断在设计器和代码之间来回切换，想知道“我将带有 URL 的文本框称为什么。TextBox37 或 TextBox38？”

如果您的代码看起来像 TextBox16.Text = List5.Items.Count & If(NumericUpDown38.Value > Grid13.Count, Checkbox62.Checked, Checkbox12.Checked)，您也将难以获得帮助 - 良好的命名至关重要；想想如果微软没有选择像.Text 或.Items 这样清晰且相关的属性名称，编写urlTextBox.String1 = "" 或For Each x as String in siteList.ObjectCollection1 的编码不会很有趣

【讨论】：

你是我的英雄，我的意思是我已经在这里休息了大约 3 天，非常感谢你