Удалить последнюю строку в RichTextBox - Visual Basic .NET
Формулировка задачи:
Всем здравствуйте.
RichTexBox заполняется в цикле таймера строками:
.....
2222222222
1111111111
0000000000
Верхняя строка будет самая "свежая" всё напечатанное до неё смещается вниз.
Как сделать чтобы, при достижении в RichTextBox числа строк равного 9-ти, последняя строка автоматически удалялась.
То есть в RichTextBox должно быть не более 9-ти строк.
Листинг программы
- Public Class Form1
- Dim n As Integer
- Dim s As String
- Dim sBuff As String
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- s = ""
- For i As Integer = 0 To 9
- s += n.ToString + " "
- Next i
- s += Chr(13)
- RichTextBox1.Text = s + sBuff
- sBuff = s + sBuff
- n = n + 1
- End Sub
- End Class
Решение задачи: «Удалить последнюю строку в RichTextBox»
textual
Листинг программы
- Dim Lst As New List(Of String)
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- If Lst.Count > 9 Then Lst.RemoveAt(Lst.Count - 1)
- Lst.Insert(0, Now.ToLongTimeString)
- RichTextBox1.Lines = Lst.ToArray
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д