Чтение Richtextbox построчно

_or_75 · Регистрация: 18.02.2012

Author24 — интернет-сервис помощи студентам

Вообщем надо когда я обращаюсь к этой функции он мне сначала возвратит первую строку RichTextBox2,
потом когда второй раз обращаюсь он мне вторую строку RichTextBox2, а получается только всегда 1

VB.NET

Public Function lines()
        Dim a As Integer = 0
        For i As Integer = 0 To RichTextBox2.Lines.Length - 1
            Return RichTextBox2.Lines(a)
            a = a + 1
        Next i
    End Function

@edward_freedom · 01.09.2012, 15:09

VB.NET

1
2
3

For i As Integer = 0 To RichTextBox2.Lines.Length - 1
            Msgbox(RichTextBox2.Lines(i))
        Next i

_or_75 · 01.09.2012, 15:36 **[ТС]**

да так работает, но надо что бы при вызове функции он с начало вернет первую строку,
а при вызове еще раз он уже вернет вторую строку, и надо что бы это все было в функции lines

@edward_freedom · 01.09.2012, 17:25

VB.NET

Public Function lines()
        Static a As Integer = -1
        If a = RichTextBox1.Lines.Length - 1 Then Exit Function
        For i As Integer = 0 To RichTextBox1.Lines.Length - 1
            a = a + 1
            Return RichTextBox1.Lines(a)
        Next i
    End Function

_or_75 0 / 1 / 1 Регистрация: 18.02.2012 Сообщений: 244
	01.09.2012, 15:36 [ТС]	3
	да так работает, но надо что бы при вызове функции он с начало вернет первую строку, а при вызове еще раз он уже вернет вторую строку, и надо что бы это все было в функции lines 0

	01.09.2012, 17:25