Question

我的代码有什么问题如下：

Select Case chkSTC.Checked
        Case True
            txtCargoDescription.Text = Resources._Global.ContrSTC & vbNewLine & txtCargoDescription.Text

        Case False
            Dim b As String() = Split(txtCargoDescription.Text, vbNewLine)
            txtCargoDescription.Text = String.Join(vbNewLine, b, 1, b.Length - 1)                
    End Select

我参考其他参考资料，

Dim b As String() = Split(txtCargoDescription.Text, vbNewLine)
txtCargoDescription.Text = String.Join(vbNewLine, b, 1, b.Length - 1)

显示可以从文本框中删除多行的第一行，但它删除文本框内的所有文本。请帮我解决这个问题。

先谢谢你了:)）

Answer 1

尝试将文本框设置为multiline = true

Answer 2

它为我工作在C＃.net

中

 string[] sep = new string[] {"\r\n"};
 string[] lines = TextBox1.Text.Split(sep, StringSplitOptions.RemoveEmptyEntries);
 TextBox1.Text = string.Join("\r\n", lines.Skip(1).ToList());

在vb.net

Dim sep() As String = New String() {""& vbCrLf}
Dim lines() As String = TextBox1.Text.Split(sep, StringSplitOptions.RemoveEmptyEntries)
TextBox1.Text = String.Join(""& vbCrLf, lines.Skip(1).ToList)

Answer 3

如果我使用

，它是有效的

txtCargoDescription.Text = txtCargoDescription.Text.Replace(Resources._Global.ContrSTC, "").Trim()

如何从文本框中删除第一行文本？

3 个答案: