RichTextBox

[sQx]

1. Как получить строку с РичБокса
2. удалить тоже

[Rainbow]

Это шутка, правда? Или поясняй вопрос...

получить: MyRichTextBox.Text
удалить: MyRichTextBox.Text = ""

[RayShade]

Поясняю: имется в виду удаление или чтение строки с определенным номером. Это как бы азбучный на самом деле вопрос ии обсуждался сто раз уже.

[GoGosha]

Ладно, сейчас напишу код:

Получить строку

Код: Выделить всё

RichTextBox1.GetLineFromChar RichTextBox1.SelStart

Удалить строку номер Numb

Код: Выделить всё


Function StrDel(Numb As Long)
    For a = 1 To Len(RichTextBox1.Text)
        If RichTextBox1.getLineFromChar(a) = Numb + 1 Then
             RichTextBox1.SelStart = a
             Exit For
        End If
    Next a

    For b = a To Len(RichTextBox1.Text)
        If RichTextBox1.GetLineFromChar(b) > Numb + 1 Then
             RichTextBox1.SelLength = b - a
             RichTextBox1.Seltext = ""
             Exit For
        End if
    Next B
End Function