Вопрос о RichTextBox

[Black_T]

RTB.SelText="100 "
RTB.SelText="200"

Получу следующее:
100 200

А как сделать чтобы было так ?
100
200
Т.е. чтобы печаталось с новой строки ?

[hCORe]

RTB.Text = RTB.Text & vbNewLine & "100" & vbNewLine & "200"

[Odrick]

Добавляй в конце строки vbCrLf

[DirectXManiac]

А вот как например в textBoxe если используеться MultiLine = True получить текст именно той строки в которой я пишу, а аткже её координаты?

[Odrick]

Как-как. Ручками - получить текущую координату курсора, разбить текст и найти нужную строку

[Black_T]

Спасибо!
А кто-нибудь может подсказать есть ли хорошие статьи в сети
по выводу информации в Richtextbox ?

[Ennor]

Самая лучшая статья.

Желательно - для полноты понимания.

Не помешает - обновление знаний до текущего момента.

[Black_T]

А можно в RTB вместе с текстом вставлять спец. символы,
например буквы греческого алфавита ?
И если можно то как ?

[Ruslan Demidow]

Вот этот код я использую в своём ридере в окне редактора.
Это по поводу текущей строки и символа в строке.
Вроде бы работает без ошибок.
На форму положи RichTextBox (идентификатор RTBedit) и лабел (lblStatus).
В модуле формы пропиши нижележащий код.

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

Private Const EM_GETSEL As Long = &HB0
Private Const EM_LINEFROMCHAR As Long = &HC9
Private Const EM_LINEINDEX As Long = &HBB
Private Const EM_LINELENGTH As Long = &HC1


Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
     ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     lParam As Any) As Long


Option Explicit

Private Sub RTBedit_SelChange()
    Dim lSelStart As Long, lSelLength As Long
    Dim CharPos As Long, Lineindex As Long, LineLength As Long, ColIndex As Long
    Dim Ret As Long, arrTmp() As String
    If Not (Me.Visible) Then Exit Sub
    With RTBedit
        Ret = SendMessage(.hwnd, EM_GETSEL, lSelStart, lSelLength)
        Lineindex = SendMessage(RTBedit.hwnd, EM_LINEFROMCHAR, lSelLength, 0) + 1
        LineLength = SendMessage(.hwnd, EM_LINELENGTH, Lineindex - 1, 0)
        CharPos = SendMessage(RTBedit.hwnd, EM_LINEINDEX, -1, 0)
        ColIndex = lSelLength - CharPos
        If .SelLength > 0 Then
            arrTmp() = Split(.SelText, vbCrLf)
            LblStatus.Caption = "Selected: Lines - " & IIf(UBound(arrTmp) = 0, 1, UBound(arrTmp)) & ": Symbols - " & .SelLength
        Else
            LblStatus.Caption = "Line " & Lineindex & ": Col " & ColIndex
        End If
    End With
End Sub
Private Function GetCurrentLineLen() As Long
    Dim S As String
    Dim nLen As Long
    Dim nChar As Long

    Const nLine = 2

    nChar = SendMessage(RTBedit.hwnd, EM_LINEINDEX, Lineindex - 1, ByVal 0&)
    If nChar <> -1 Then
        nLen = SendMessage(RTBedit.hwnd, EM_LINELENGTH, nChar, ByVal 0&)
        If nLen < 2 Then nLen = 2
        S = String$(2, 0)
        CopyMemory ByVal S, nLen, 2
        S = S & String$(nLen - 2, 0)
        nLen = SendMessage(RTBedit.hwnd, EM_GETLINE, Lineindex - 1, ByVal S)
        GetCurrentLineLen = Len(Left$(S, nLen))
    Else
        GetCurrentLineLen = 0
    End If
   
End Function


[Black_T]

А как установить курсор в определенный столбец и строку ?
И можно ли сделать в RTB таблицу ?

[Ruslan Demidow]

Вот здесь много чего написано про RTB:

http://msdn2.microsoft.com/en-us/library/3tdc88y7.aspx
http://msdn.microsoft.com/library/defau ... ltasks.asp
http://msdn2.microsoft.com/en-us/library/s2t5aae7.aspx

[Ennor]

Можно - практически все. Но - очень сложно, в особенности когда дело доходит до таблиц. Я себе на них в свое время реально мозги вывихнул, после чего решил, что отныне я с таблицами работаю либо в гриде, либо в HTML.

[Black_T]

Понял уже, спасибо!
Тут дело было вот в чем,
я результаты расчета отправлял в текстовый файл,
но числа были очень разные, и все строки скакали относительно друг друга...
Теперь слелал вывод в excel и все ок!