Vb.net 如何单独编辑每个文本框行？

我有两个文本机器人，第一个有几行。我想编辑文本框1中的每一行，将文本框2中的文本添加到每一行

因此，如果textbox1具有以下行：

i am
you are
he is
she is

文本框2有文本：John

然后textbox1将成为

i am John
you are John
he is John
she is John

我试过这个：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For Each strLine As String In TextBox1.Text.Split(vbNewLine)
        strLine += " " + TextBox2.Text
    Next
End Sub

---

但是没有成功，有什么帮助吗？

您可以直接修改strLine，因为它不会影响文本框的值。您需要创建一个新变量，然后使用它替换Textbox1.Text

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim newText as New String()
    For Each strLine As String In TextBox1.Text.Split(vbNewLine)
        newText &= strLine & " " & TextBox2.Text & Environment.NewLine
    Next

Textbox1.Text = newText
End Sub

---

检查语法，因为我不太使用Vb.net

您也可以这样使用文本框的Lines属性

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim newText As New List(Of String)
    For Each strLine As String In TextBox1.Lines
        newText.Add(strLine & " " & TextBox2.Text)
    Next

    Textbox1.Lines = newText.ToArray
End Sub

---

请确保不要尝试直接使用lines属性。您必须处理一个新集合，然后用新集合替换lines属性。

最后一行如果没有结尾的分号，效果会更好。同样，这里也没有区别，但是VB.NET有一个&运算符专门用于字符串连接。如果您试图使用+，将字符串与其他数据类型连接起来，编译器有时会错误地猜测您的意思。（见）谢谢@pmcoltrane我基本上是个C#人