Удалить последнюю строку в RichTextBox - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Всем здравствуйте. RichTexBox заполняется в цикле таймера строками: ..... 2222222222 1111111111 0000000000
Листинг программы
  1. Public Class Form1
  2. Dim n As Integer
  3. Dim s As String
  4. Dim sBuff As String
  5. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  6. s = ""
  7. For i As Integer = 0 To 9
  8. s += n.ToString + " "
  9. Next i
  10. s += Chr(13)
  11. RichTextBox1.Text = s + sBuff
  12. sBuff = s + sBuff
  13. n = n + 1
  14. End Sub
  15. End Class
Верхняя строка будет самая "свежая" всё напечатанное до неё смещается вниз. Как сделать чтобы, при достижении в RichTextBox числа строк равного 9-ти, последняя строка автоматически удалялась. То есть в RichTextBox должно быть не более 9-ти строк.

Решение задачи: «Удалить последнюю строку в RichTextBox»

textual
Листинг программы
  1.     Dim Lst As New List(Of String)
  2.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  3.         If Lst.Count > 9 Then Lst.RemoveAt(Lst.Count - 1)
  4.         Lst.Insert(0, Now.ToLongTimeString)
  5.         RichTextBox1.Lines = Lst.ToArray
  6.     End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут