添加新文本框时，删除第一行

Question

我使用以下命令将文本附加到我正在使用的多行文本框中:

TextBox1.AppendText(Environment.NewLine & "Current status : " & currentStatus)

但是，如果有(例如)49行，我想在添加第50行时删除第一行。

Answer 1

您也可以使用LINQ来解决此问题。这里我使用了SKIP和TAKE函数。

If textBox1.Lines.Count = 50 Then
    textBox1.Lines= textBox1.Lines.Skip(Of String)(1).Take(textBox1.Lines.Length - 1).ToArray()
End If

注意:仅当你的框架是3.5或以上时才会工作

Answer 2

文本框有一个TextChanged事件，每次文本更改时触发。

您可以使用它来计算文本框中的行数，这与换行符的数量相同。如果这个数量超过了您的限制，您可以通过定位第一个换行符来删除第一行，并删除该换行符及其前面的所有内容。

我不会说VB。. Net，所以我希望你能使用它并编写代码。

我已经尝试过了:

Private Sub textBox1_TextChanged(sender As Object, e As EventArgs)
    Dim lineCount As Integer = textBox1.Lines.Count()
    If lineCount > 49 Then
        textBox1.Text = textBox1.Text.Substring(textBox1.Text.IndexOf(Environment.NewLine))
    End If
End Sub

Answer 3

你可以尝试这样做:

If TextBox1.Lines.Count = 50 Then
    Dim temp As String(50)
    Array.Copy(TextBox1.Lines,1,temp,0,49)
    TextBox1.Lines = temp
End If
TextBox1.AppendText(Environment.NewLine & "Current status : " & currentStatus)

我正在运行的大脑编译器和一个iPhone的时刻，但我认为这应该工作

Answer 4

试试这个

dim sNewLine as String '-------> inserted text 
dim s as string = textbox1.text
s=mid(s,instr(s,vbCRLF)+2)

添加新行

textbox1.text = s & vbCRLF & sNewLine