vb.net 多次向TextBox输入多行数据 一直显示最后几行

要在 VB.NET 中向 TextBox 控件输入多行数据，并且只显示最后几行，可以使用以下代码：

' 定义变量，表示要保留的行数
Const MAX_LINES As Integer = 5

' 向 TextBox 添加新行
TextBox1.AppendText("新行1" & vbCrLf)
TextBox1.AppendText("新行2" & vbCrLf)
TextBox1.AppendText("新行3" & vbCrLf)

' 如果 TextBox 中的行数超过了 MAX_LINES，则删除前面的行
Do While TextBox1.Lines.Length > MAX_LINES
    Dim lines As String() = TextBox1.Lines
    lines = lines.Skip(lines.Length - MAX_LINES).ToArray()
    TextBox1.Lines = lines
Loop

上述代码中，`MAX_LINES` 变量表示要保留的行数。首先，使用 `AppendText` 方法向 TextBox 添加新行。然后，使用 `Lines` 属性获取 TextBox 中的所有行，如果行数超过了 `MAX_LINES`，则使用 LINQ 中的 `Skip` 方法删除前面的行，再使用 `Lines` 属性将剩余的行设置回 TextBox 中。

注意，这段代码应该放在每次添加新行之后执行，以确保 TextBox 中只保留最后几行。