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

Question

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

这是我的代码：

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

这是一个屏幕截图，因为我不能 post 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"（“_SiteList”怎么样？）或 "TextBox2" 更有意义的名称。在窗体上放置控件后，单击属性网格中的（名称）行并键入其他内容需要几秒钟。

当你完成添加 27 个文本框、54 个标签、6 个列表、9 个数字上下、一些网格、复选框、单选按钮等时，你的整个程序代码将难以理解，而且你'我会不断地在设计师和代码之间来回切换，想知道 "what did I call the textbox with the URL in.. TextBox37, or TextBox38?"

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

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

How to add all the items of a list box to a textbox

.net

vb.net

visual-studio-2012

textbox

listbox