Richtextbox

[noob4ever]

Добрай день, возникла проблема такая: как перейти например на 36 строк вниз, например нажимая на кнопку, и .selstart оказывался на 36 строчке?? ничего не выходит, подскажиет плиз.

[Viper]

А как пробовал?

[burik]

Можно посчитать символы перехода строки.
Типа такого:

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

Private Sub Command1_Click()
Dim Fin As Boolean
Dim x As Integer, c As Byte

    'rtb - RichTextBox

    x = rtb.SelStart
    Do While Not Fin
        x = x + 1
        If x = Len(rtb.Text) Then
            Fin = True
        Else
            If Mid$(rtb.Text, x, 2) = vbCrLf Then c = c + 1
            If c = 36 Then Fin = True
        End If
    Loop
    rtb.SelStart = x

End Sub