Добавление строк снизу в вверх

По аналогии, как сделано в чатах.

Dim lnSize As Single = RichTextBox1.Font.Height + RichTextBox1.Font.GetHeight
Dim nBufferSize As Integer = CInt(Math.Truncate(RichTextBox1.ClientSize.Height / lnSize * 2))
Static i As Integer : i += 1
Static lnBuffer As New List(Of String)(Enumerable.Repeat(Environment.NewLine, nBufferSize))
If (lnBuffer(0) = Environment.NewLine) Then
    lnBuffer.RemoveAt(0)
End If
lnBuffer.Add(Now.ToLongTimeString & " : " & TextBox1.Text)
RichTextBox1.Lines = lnBuffer.ToArray
RichTextBox1.ScrollToCaret()
RichTextBox1.SelectionStart = RichTextBox1.Text.Length
RichTextBox1.ScrollToCaret()

TextL 300x238 Добавление строк снизу в вверх

  Метки:
  Евгений
  Просмотров: 1 895
  Запись опубликована в 13:27

Есть что сказать? Тогда действуй!


:wink: :twisted: :roll: :oops: :mrgreen: :lol: :idea: :evil: :cry: :arrow: :?: :-| :-o :-P :-D :-? :) :( :!: 8-O 8)